Văn Toàn 1996
Thành viên hoạt động
- Tham gia
- 5/6/23
- Bài viết
- 102
- Được thích
- 22
Chào tất cả mọi người. Mình có test 1 đoạn code bên dưới với 2 kiểu khai báo biến như sau
Dim sArr() và Dim sArr
Mình thấy 2 kết quả lọc đều giống nhau, nhưng khi lọc dữ liệu lớn thì Dim sArr có tốc độ nhanh hơn
Vậy khi nào dùng Dim sArr() và khi nào nên dùng Dim sArr. em xin chân thành cảm ơn ạ
Dim sArr() và Dim sArr
Mình thấy 2 kết quả lọc đều giống nhau, nhưng khi lọc dữ liệu lớn thì Dim sArr có tốc độ nhanh hơn
Vậy khi nào dùng Dim sArr() và khi nào nên dùng Dim sArr. em xin chân thành cảm ơn ạ
Mã:
Sub TESTLOC()
Dim sArr(), dArr(), Dk1 As String, I As Long, K As Long, R As Long, Col As Long, a As Long
sArr = Range("A1:D1000").Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 4)
For I = 1 To R
If sArr(I, 1) = 1 Then
K = K + 1
For Col = 1 To 4
dArr(K, Col) = sArr(I, Col)
Next Col
End If
Next I
Range("E1:H1000").ClearContents
Range("E1").Resize(K, 4) = dArr
End Sub