Очистить контент с помощью критериев и настроек ячеек

введите описание изображения здесь Я пытаюсь построить код vba, который очистит содержимое, если ячейки = 0. Однако это зависит от предыдущего кода vba, который изменяет формат некоторых ячеек. Мой код до сих пор:

Sub Macro1 ()

Приложение.DisplayAlerts = False

Dim lastRow как вариант

Range("A4:A65000").Select Selection.TextToColumns Destination:=Range("B4"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _ TrailingMinusNumbers:=True Range("B4").Select Range("E4:F4").AutoFill Destination:=Range("E4:F" & Range("A" & Rows.Count).End(xlUp).Row) lastRow = Range("A" & Rows.Count).End(xlUp).Row lastRow = lastRow + 1 Rows(lastRow & ":F" & 2 ^ 20).ClearContents End Sub 

Поэтому в зависимости от кода я иногда получаю много клеток, содержащих «00» в строке «G».

Я думал, что могу использовать код «Clearcontent», но im unsure использовать его, когда ячейки все время настраиваются.

  1. Найдите последнюю строку в столбце A Последняя строка в столбце VBA. Скажем, это строка 250. Скажем, это k
  2. Затем напишите следующее в конце:

 k = k + 1 Rows(k & ":" & 2^20).ClearContents 
Давайте будем гением компьютера.