Nhờ code tự động delete các column thỏa điều kiện (2 người xem)

[athena_chan]

Chào mọi người,

Em có 1 bảng tính có khoảng 200 cột. Nhờ mọi người code giùm em để delete tất cả các cột mà header chứa "_ABC".

Cám ơn mọi người

 

[Ba Tê]

Chào mọi người,

Em có 1 bảng tính có khoảng 200 cột. Nhờ mọi người code giùm em để delete tất cả các cột mà header chứa "_ABC".

Cám ơn mọi người

for J=1 to 200
if header like "*_ABC*" then "Xóa"
next.
------------
Híc! Quang Hải ơi!

 

[ginkgo36]

Sub DeleteColumn_ABC()
Dim count As Integer, i As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
With ws
count = .Cells(1, Columns.Count).End(xlToLeft).Column
    For i = count To 1 Step -1
        If .Cells(1, i).Value = "_ABC" Then
            .Columns(i).Delete
        End If
    Next i
End With
End Sub