如何删除某些单元格?

如何删除某些单元格?

如果相邻单元格没有值(空),我想删除某些单元格。有人可以为此编写 VBA 代码吗?

例如:如果任何给定行中的单元格“C”为空,则删除同一行中的单元格“A”。

谢谢…

答案1

如果我们从如下数据开始:

在此处输入图片描述

并运行这个简短的宏:

Sub KleanUpA()
    Dim r As Range
    Set r = ActiveSheet.UsedRange.Range("C:C").Cells.SpecialCells(xlCellTypeBlanks).Offset(0, -2)
    r.Clear
End Sub

我们将得到:

在此处输入图片描述

相关内容