如果满足单元格的条件条件，则 VBA 代码用于删除一行中的一系列单元格答案

【问题标题】：VBA code to remove a range of cells in a row if a cell's condition criteria is met如果满足单元格的条件条件，则 VBA 代码用于删除一行中的一系列单元格
【发布时间】：2019-04-24 07:31:43
【问题描述】：

第一次在这里发帖，如果我有任何问题，请道歉。这个网站对我来说非常有用，所以想抛出一个相对简单的问题，我似乎无法在任何地方找到直接答案。

我正在尝试运行清理宏，以根据 Cell 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

【问题讨论】：

标签： excel vba

【解决方案1】：

您对您想要做什么的解释似乎与您的实际（非工作代码）完全不同。如果您只想在 A4 为空白时清除范围 A4:M4，您可以使用：

Sub cleaner()

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

End Sub

【讨论】：