Góp vui thêm 1 code để bạn rộng đừng lựa chọn
Bạn tham khảo code sau:
Option Explicit
Sub ABC()
Dim i&, J&, Lr&, d&, k&, R&, t&, Z&
Dim Arr(), KQ(), S
Dim Dic As Object, Key
Application.ScreenUpdating = False
With Sheet1
Lr = .Cells(100000, 1).End(xlUp).Row
Arr = .Range("A2:C" & Lr).Value
End...