宏 VBA 查找特定列

Question

之后我需要在第 3 行找到一个特定的词，例如预算和状态，然后我需要删除包含状态和预算的整个列。

附注。 可以有更多的单词以及如何使它转到最后一列并找到那些特定的单词

Answer 1

这个简单的代码将向后循环遍历第 3 行，如果找到您要查找的值，它将删除该列（注意：您必须从最后一列向后循环）。 您可以通过复制Or .Cells(3, i).Value = "Budget"并将其粘贴到Next前面来添加更多单词，然后根据需要更改单词 "Budget"。

Dim lCol As Long, i As Long

With ThisWorkbook.Sheets("Sheet1")
    lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

    For i = lCol To 2 Step -1
        If .Cells(3, i).Value = "Status" Or .Cells(3, i).Value = "Budget" Then
            .Cells(3, i).EntireColumn.Delete
        End If
    Next i

End With

Answer 2

您可以使用 1 行代码快速简单地搜索单个单词和删除列：

Cells.Find(What:="Budget", After:=Range("A3"), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows).EntireColumn.Delete

这条线找到您要的从小区A3开始什么，并搜索SearchOrder是一行。

如果您想查找更多单词，只需复制并粘贴代码并更改What