Nhờ xử lý xóa cell trống và remove dupplicate (1 người xem)

[maxzeros]

Dear all
Em có 1 bảng, tuy nhiên bảng bị lặp các header và trong bảng có các cell trống
Nhờ các bác hướng dẫn em làm sao để gộp các cell không trống và remove duplicate
Em attach file ví dụ nhé

 

[maxzeros]

Help me!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[Quang_Hải]

Dear all
Em có 1 bảng, tuy nhiên bảng bị lặp các header và trong bảng có các cell trống
Nhờ các bác hướng dẫn em làm sao để gộp các cell không trống và remove duplicate
Em attach file ví dụ nhé

Copy code này về cho vào 1 module và chạy thử
Thay số 10 cho phù hợp với sốt cột cần xử lý

Sub abc()
Dim arr(), Kq(), i, j, k, SoCot
SoCot = 10
arr = Range("A2", [A65536].End(3)).Resize(, SoCot).Value
ReDim Kq(1 To UBound(arr), 1 To SoCot)
With CreateObject("scripting.dictionary")
   For i = 1 To UBound(arr)
      If Not .exists(arr(i, 1)) Then
         k = k + 1
         .Add arr(i, 1), k
         For j = 1 To SoCot
            Kq(k, j) = arr(i, j)
         Next
      Else
         For j = 1 To SoCot
            If Kq(k, j) = "" Then
               Kq(k, j) = arr(i, j)
            End If
         Next
      End If
   Next
End With
[L2].Resize(k, SoCot) = Kq
End Sub