Excel VBA 代码：快速删除指定区域内空值并左移单元格

Sub DeleteBlankCells()

Dim rng As Range Set rng = Range('O3:GI4798') '指定需要查找的范围

For Each cell In rng If IsEmpty(cell) Then cell.Delete Shift:=xlToLeft '如果找到空值，则删除并左移单元格 End If Next cell

End Sub