VBA代码Excel:我希望宏使用多个ifs删除行

Question

我希望宏删除所有 3 行，如果前一个单元格为空，单元格本身具有值"安全性"，下一个单元格也是空白的。可能吗？感谢帮助！:)数据行有许多这样的数字：

C23= Blank
C24= Security
C25= Blank

谢谢！

Answer 1

您可以尝试以下操作。 答1 A2 安全 答3 A4 安全 A5 安全

Dim cell As Range
For Each cell In Range("A1:A5").SpecialCells(xlCellTypeConstants)
If cell.Offset(-1, 0).Value = "" Then
If cell.Offset(1, 0).Value = "" Then
Range(cell.Offset(-1, 0).Address, cell.Offset(1, 0).Address).Clear
End If
End If
Next

如果要删除整行并移位xlup，则可以使用entirerow.delete shift：=xlup选项。

谢谢