第一篇文章在这里,如果我没事就不好意思。这个网站对我非常有用,因此想提出一个相对简单的问题,我似乎找不到任何地方的直接答案。
我正在尝试运行清理宏,以根据单元格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
答案 0 :(得分:0)
您对要执行的操作的解释似乎与您的实际(非工作代码)完全不同。如果您只想清除范围A4:M4(如果A4为空白),则可以使用:
Sub cleaner()
If Range("A4").Value = "" Then
Range("A4:M4").Clear
End If
End Sub