1. 打开VBA编辑器:按下Alt+F11键打开VBA编辑器。
2. 插入模块:在VBA编辑器中,点击“插入”菜单,选择“模块”。
3. 编写脚本:在打开的模块中,复制以下代码:
```vba
Sub DeleteEmptyCells()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") '根据实际情况修改工作表名称
Dim rng As Range
Set rng = ws.UsedRange '选中整个工作表
Dim cell As Range
For Each cell In rng
If IsEmpty(cell.Value) Then
cell.Delete
End If
Next cell
End Sub
```
4. 运行脚本:关闭VBA编辑器,回到Excel表格,按下Alt+F8,选择“DeleteEmptyCells”,点击“运行”。