从第15列到188列第3行到4798行查找到空值后删除左移的速度快的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