Een simple VBA module waarmee geautomatiseerd meerdere kolommen verwijderd kunnen worden uit een Excel sheet. Vanaf regel 7 kan je de namen van de te verwijderen kolomkoppen opgeven. Pas de range aan op basis van de data in de sheet.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Dim rng As Range Dim strKolom(2) As String Dim strFind As String Dim element As Variant Dim strRange As String strKolom(1) = "Kolom 1" strKolom(2) = "Kolom 2" strRange = "A1:C1" For Each element In strKolom If CStr(element) <> "" Then With Worksheets("Blad1").Range(strRange) Set rng = Worksheets("Blad1").Range(strRange).Find(What:=CStr(element), _ LookAt:=xlWhole, MatchCase:=False) Debug.Print CStr(element) Do While Not rng Is Nothing rng.EntireColumn.Delete Set rng = .FindNext Loop End With End If Next element |
Laat een reactie achter