Nhờ giúp macro xóa cột theo danh sách liệt kê header của cột cần xóa (1 người xem)

[timhieu02]

Em chào cách anh/chị,

Em nhờ các anh chị giúp em code macro xóa cột theo danh sách liệt kê header của cột cần xóa

Em có đính kèm file mẫu. Trong đó

- Sheet "Data": là chứa dữ liệu
- Sheet "List to delete column": là chứa danh sách liệt kê Header tương ứng từng cột B2->U2 cần xóa trong sheet "Data" ở trên.
- Sheet "result_after run macro": là kết quả mong muốn sau khi chạy macro.

Mong các anh.chị nhín chút thời gian giúp em với.

Chân thành cảm ơn ạ.

 

[VetMini]

Bài tập hở?

 

[Ba Tê]

Em chào cách anh/chị,

Em nhờ các anh chị giúp em code macro xóa cột theo danh sách liệt kê header của cột cần xóa

Em có đính kèm file mẫu. Trong đó

- Sheet "Data": là chứa dữ liệu
- Sheet "List to delete column": là chứa danh sách liệt kê Header tương ứng từng cột B2->U2 cần xóa trong sheet "Data" ở trên.
- Sheet "result_after run macro": là kết quả mong muốn sau khi chạy macro.

Mong các anh.chị nhín chút thời gian giúp em với.

Chân thành cảm ơn ạ.

Chạy "thí thí" Sub này xem sao:

Public Sub sGpe()
Dim WF As Object, Rng As Range, C As Long, Col As Long
Set Rng = Sheet2.Range("A1", Sheet2.Range("A100").End(xlUp))
Set WF = Application.WorksheetFunction
With Sheets("DATA")
    Col = .Range("XFD2").End(xlToLeft).Column
    For C = Col To 2 Step -1
        If WF.CountIf(Rng, .Cells(2, C)) Then .Cells(2, C).EntireColumn.Delete
    Next C
End With
Set WF = Nothing: Set Rng = Nothing
End Sub

 

[timhieu02]

Bài tập hở?

dạ không anh. đây là trong công việc, nhưng em lấy ví dụ data tạm thôi ạ

Bài đã được tự động gộp: 23/11/18

Chạy "thí thí" Sub này xem sao:

Public Sub sGpe()
Dim WF As Object, Rng As Range, C As Long, Col As Long
Set Rng = Sheet2.Range("A1", Sheet2.Range("A100").End(xlUp))
Set WF = Application.WorksheetFunction
With Sheets("DATA")
    Col = .Range("XFD2").End(xlToLeft).Column
    For C = Col To 2 Step -1
        If WF.CountIf(Rng, .Cells(2, C)) Then Cells(2, C).EntireColumn.Delete
    Next C
End With
Set WF = Nothing: Set Rng = Nothing
End Sub

Dạ. em cám ơn anh Ba Tê nhiều lắm. Nó chạy phà phà luôn!