从第15列到188列第3行到4798行快速查找空值并删除左移的VBA代码

Sub DeleteEmptyCells() Dim i As Long, j As Long For i = 3 To 4798 For j = 188 To 15 Step -1 If Cells(i, j).Value = "" Then Cells(i, j).Delete Shift:=xlToLeft End If Next j Next i End Sub