Tham khảo thêm 1 cách
Tạm thời danh sách cán bộ theo huyện ghi vào sheet tonghop cột G
Option Explicit
Dim dicTt As Object
Sub loc()
Dim nguon
Dim huyen
Dim ds, cv, tam
Dim rws, i, j, k, x, z
With Sheet1
nguon = .Range("A4", "E" & .Range("D4").End(xlDown).Row)
huyen = .Range("G3")...