Löschen Sie alle Spalten mit Teilwert

Question

Ich versuche, einen VBA-Code mit Zeile 1 Header erstellen und Spalten löschen, die "s2" in ihrer Kopfzeile enthalten. Ich brauche einen Code, um s2 zu suchen, was eine partielle Suche ist, weil ich andere Header habe, die mit xyz s2, abc s2 usw. beschriftet sind. Also möchte ich alles suchen, was s2 enthält und Spalten mit diesen Kriterien löschen. alles würde helfen, thx

Answer 1

Cpnsider:

Sub dural() 
    Dim N As Long, i As Long, r As Range, v As Variant 
    N = Cells(1, Columns.Count).End(xlToLeft).Column 

    For i = N To 1 Step -1 
     Set r = Cells(1, i) 
     v = r.Value 
     If InStr(1, v, "s2") > 0 Then r.EntireColumn.Delete 
    Next i 
End Sub 

Answer 2

Sie müssen Ihren Versuch auf, dieses Problem zu lösen, um Hilfe hier zu bekommen.

Blick in InStr() und .EntireColumn.Delete