So sánh tốc độ khi add các loại dữ liệu khác nhau vào dictionary

Chia sẻ bởi:hands

★★★★★

‹ Tô Màu Cho Những Dòng Có Tháng... Tham chiếu qua nhiều sheet ›

Quảng cáo

Xin chào toàn thể anh chị em trong diễn đàn.
Mình có một thắc mắc mà tìm hiểu mãi không có kết quả.
Số là mình add key vào dictionary với số lượng khoảng 60.000 key (là customer id – có 10 số trong báo cáo load từ hệ thống) dưới dạng number thì mất khoảng 2 phút. Tuy nhiên cũng số lượng key tương tự, mình load từ báo cáo khác dưới dạng text thì add vào dictionary chỉ mất khoảng 0.3 giây.
Anh chị em cho mình hỏi tại sao lại có sự khác biệt quá lớn như vậy giữa text và number khi add vào dictiionary?
Và có cách nào chuyển number thành text trong array sau đó in ra bảng tính mà vẫn giữ được thuộc tính text hay không?
Trân trọng cảm ơn!

Sub vidu_a()
    Dim Dic As Object
    Set Dic = CreateObject("Scripting.Dictionary")
    Dim x As Long, y As Long, i As Long, sKey As String, Rng As Range
    x = 1000000000
    y = 1000060000
    For i = x To y
        sKey = CStr(i)
        If Dic.Exists(sKey) = False Then
            Dic.Add sKey, ""
        End If
    Next i
'    If Dic.Count > 1 Then Rng.Value = Application.Transpose(Dic.keys)
End Sub

Định dạng vùng ở bảng tính sẵn là kiểu "Text".

www.giaiphapexcel.com/diendan/threads/so-s%C3%A1nh-t%E1%BB%91c-%C4%91%E1%BB%99-khi-add-c%C3%A1c-lo%E1%BA%A1i-d%E1%BB%AF-li%E1%BB%87u-kh%C3%A1c-nhau-v%C3%A0o-dictionary.129425/