求excel_vba代码:删除指定区域全部空白单格，右边单元格左移

Question

需要处理的数据很大，113列32万行，每行需要删除的数据大概有20余个，而且空白单元格是函数计算出来的，无法用定位空值来识别，即使有，删除的时候也直接卡死了。不会vba不会宏，求大神给个代码

Answer 1

数据量这么大
就算用VBA花的时间也不会少
打开需要处理的工作表
同按ALT+F11这两个键调出VBA编辑窗口
插入--模块
在右边的空白代码窗口粘贴以下代码

Sub test()
For i = 1 To 320000
For j = 1 To 113
If Cells(i, j) = "" Then
Cells(i, j).Delete Shift:=xlToLeft
End If
Next j
Next i
End Sub

按F5键即可自动运行这段代码
慢慢等吧