Макро VBA найти конкретный столбец

Question

Мне нужно найти определенное слово в строке 3, такое как Бюджет и Статус, после этого мне нужно будет удалить весь столбец, который содержит Статус и бюджет.

PS.может быть больше слов и как заставить его перейти к последнему столбцу и найти эти конкретные слова

Answer 1

Вы можете искать отдельные слова и удалять столбцы быстро и просто с помощью 1 строки кода:

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

Эта строка находит Что вы хотите, начиная с ячейки A3 и выполняет поиск по SearchOrder по строкам.

Если вы хотите найти больше слов, просто скопируйте и вставьте код и измените Что

Answer 2

Этот простой код будет циклически проходить по строке 3 в обратном направлении, и, если он найдет искомые значения, он удалит столбец (Примечание: вы должны вернуться назад к последнему столбцу).Вы можете добавить больше слов, скопировав Or .Cells(3, i).Value = "Budget" и вставив его перед Next, затем при необходимости измените слово "Бюджет".

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