刪除包含部分值的所有列

Question

我正在嘗試使用第1行標題創建VBA代碼並刪除其標題中包含「s2」的列。我需要一個代碼來搜索s2，這是一個部分搜索，因爲我有其他標題爲xyz s2，abc s2等。因此，我想搜索包含s2的任何內容並刪除任何具有此條件的列。任何東西都會有所幫助，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

您需要發佈您的解決此問題的嘗試以獲得幫助。

查找到InStr()和.EntireColumn.Delete