Sub loc_du_lieu()
Dim ws As Worksheet
Dim my_arr As Variant
Dim filter_column As Integer: filter_column = 3
Dim d As Object
Dim lr As Long, i As Integer
Dim Header As String
Dim v As Variant
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
Set ws = Sheets("CONG NO")
lr = ws.Cells(ws.Rows.Count, filter_column).End(xlUp).Row
Header = "A12:AD12"
my_arr = Application.WorksheetFunction.Transpose(ws.Range(Cells(13, filter_column), Cells(lr, filter_column)))
For i = LBound(my_arr) To UBound(my_arr)
d(my_arr(i)) = 1
Next i
For Each v In d.keys()
ws.Range(Header).AutoFilter field:=filter_column, Criteria1:=v
If Not Evaluate("=ISREF('" & v & "'!A12)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = v
Else
Sheets(v).Move after:=Worksheets(Worksheets.Count)
End If
ws.Range("A10:A" & lr).EntireRow.Copy Sheets(v).Range("A12")
Sheets(v).Columns.AutoFit
Next v
ws.AutoFilterMode = False
ws.Activate
Application.ScreenUpdating = True
End Sub