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