如果滿足單元格的條件標准，則VBA代碼可刪除一行中的一系列單元格

Question

首先發布在這里，如果我沒事就不好意思。 這個網站對我來說非常有用，所以想提出一個相對簡單的問題，我似乎找不到任何地方的直接答案。

我正在嘗試運行清理宏，以根據單元格A4為空的情況刪除一行中的一系列單元格。 我不想刪除整行，因為有一些單獨的數據超出了以下所示的范圍。

我要刪除的單元格范圍是基於A4為空白的單元格A4:M4 ，因為范圍A4：D4中的值是隨每次導入而變化的導入靜態值，范圍E4：M4中的值是公式索引單元格響應單元格A4的值。

任何幫助表示贊賞。 現有代碼如下：

Sub Cleaner()
  Dim rng As Range
  On Error Resume Next
  Set rng = Range("A4:M549").SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0
  rng.Rows.Delete Shift:=xlShiftUp
Exit Sub

Answer 1

您對要執行的操作的解釋似乎與您的實際（非工作代碼）完全不同。 如果您只想清除范圍A4：M4（如果A4為空白），則可以使用：

Sub cleaner()

    If Range("A4").Value = "" Then
        Range("A4:M4").Clear
    End If

End Sub