用标准清除内容并调整细胞

Question

我试图构建一个vba代码，如果cells = 0，它将清除内容。但这取决于之前改变某些单元格格式的vba代码。我的代码到现在为止：

Sub Macro1（）

Application.DisplayAlerts = False

Dim lastRow As Variant

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

因此，根据代码，我有时会在行“G”中出现大量包含“00”的单元格。

我以为我可以使用代码“Clearcontent”，但我不确定在单元格一直调整时使用它。

Answer 1

1. 找到列A中的最后一行。 Last row in column VBA让我们说这是第250行。让我们说它是k
2. 然后在最后写下以下内容：

k = k + 1
Rows(k & ":" & 2^20).ClearContents