如何删除 excel 中的多个空单元格

Question

我有一个 excel 电子表格，它有大约 100 列和接近 20,000 行。 许多单元格是空的，大约 10,000 个。 是否有使用 VBA 自动删除所有空单元格的方法？

Answer 1

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Answer 2

如果您想将其他单元格向上移动.. 在 vba 平台中使用此代码：

Sub test()
For x = 1 To 20000
For y = 1 To 100
If ActiveSheet.Cells(x, y).Text = "" Then
ActiveSheet.Cells(x, y).Delete
End If
Next
Next
End Sub

（此代码检查每个单元格，如果为空则将其删除）

或者，如果您想将它们向左移动，请使用这个：

Sub test()
For x = 1 To 20000
For y = 1 To 100
If ActiveSheet.Cells(x, y).Text = "" Then
ActiveSheet.Cells(x, y).Delete Shift:=xlToLeft
End If
Next
Next
End Sub

（此代码检查每个单元格并在它为空时将其删除，但它使用指令移动单元格： Shift:=xlToLeft ）