Question

第一篇文章在这里，如果我没事就不好意思。这个网站对我非常有用，因此想提出一个相对简单的问题，我似乎找不到任何地方的直接答案。

我正在尝试运行清理宏，以根据单元格A4为空的情况删除一行中的一系列单元格。我不想删除整行，因为有一些单独的数据位于以下所示范围的几列之内。

我要删除的单元格范围是基于A4:M4为空的单元格A4，因为范围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

如果满足单元格的条件标准，则VBA代码可删除一行中的一系列单元格

1 个答案: