Question

我尝试使用第1行标题创建VBA代码并删除包含＆＃34; s2＆＃34;在他们的标题。我需要一个代码来搜索s2，这是一个部分搜索，因为我有其他标题，标记为xyz s2，abc s2等。所以，我想搜索包含s2的任何内容并删除任何具有此条件的列。什么都有帮助，thx

Answer 1

您需要发布解决此问题的尝试以获取帮助。

查看InStr()和.EntireColumn.Delete

Answer 2

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

删除包含部分值

2 个答案: