☰

查找范围内为零的单元格并删除下一个单元格宏

tag-icon • tag-icon microsoft-excel vba macros
查找范围内为零的单元格并删除下一个单元格宏

我需要一些关于我遇到的问题的指导。我创建了一个宏，如果单元格内容等于零，它会删除该单元格的内容。我想要实现的功能是同时删除右侧的下一个单元格。例如，如果单元格“B38”等于 0，则删除单元格的内容和“C38”的内容。下面是我所拥有的，它只删除等于零的单元格。

Sub FindZeros()
Dim z As Range

    Range("B38:B63").Select
    For Each z In Selection
        If z.Value = 0 Then z.delete
     Next z

End Sub

答案1

使用 Resize()，同样适用于向后删除循环。

Sub FindZeros()
Dim z As Long

    For z = 63 to 38 step -1
        If activesheet.cells(z,2).Value = 0 Then activesheet.cells(z,2).Resize(1,2).delete
     Next z

End Sub

相关内容