时间戳

首页 > 解决方案 > VBA Code Excel：我希望宏通过使用多个 ifs 来删除行

excel - VBA Code Excel：我希望宏通过使用多个 ifs 来删除行

问题描述

如果前面的单元格为空白，我希望宏删除所有 3 行，单元格本身的值为“Security”并且下一个单元格也是空白的。可能吗？帮助表示赞赏！:) 数据行有很多这样的数字：

C23= Blank
C24= Security
C25= Blank

谢谢！

标签： excelvba

解决方案

你可以试试下面的。A1 A2 安全 A3 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，则可以使用 wholerow.delete shift:=xlup 选项。

谢谢

推荐阅读