如何删除某些单元格？

Question

如果相邻单元格没有值（空），我想删除某些单元格。有人可以为此编写 VBA 代码吗？

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

谢谢…

Answer 1

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

并运行这个简短的宏：

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

我们将得到：