- Tham gia
- 31/3/20
- Bài viết
- 180
- Được thích
- 43
Em có nhặt được đoạn code trên diễn đàn. Code để xử lý các tên hàng tồn tại. mà sao 20.000 dòng nó chạy cự kỳ chậm. Giờ làm sao viết sang dạng Mãng cho nhanh
Code dạng mãng ví dụ như bài này chạy nhanh cực kỳ ( tác giả Phước Cam )
Em cảm ơn mọi người !
Mã:
Sub GPE()
Dim Dic As Object, cel As Range
Set Dic = CreateObject("scripting.dictionary")
For Each cel In Range("A4:A20000") '
If Not Dic.exists(cel.Value) Then
Dic.Add cel.Value, ""
Else
cel.Resize(1, 5).ClearContents '
End If
Next
End Sub
Code dạng mãng ví dụ như bài này chạy nhanh cực kỳ ( tác giả Phước Cam )
Mã:
Sub xoa_dong2()
Dim i As Long, j As Long, lr As Long
Dim a As Variant
lr = Range("A" & Rows.Count).End(xlUp).Row
a = Range("A3:E" & lr).Value
For i = 1 To UBound(a)
If a(i, 1) = 0 Then
For j = 1 To 5
a(i, j) = ""
Next
End If
Next i
Range("A3:E" & lr).Value = a
MsgBox ("Xong")
End Sub
Em cảm ơn mọi người !