Question

用EXCEL VBA如何删除空格单元格所在的行,数据很大

Answer 1

Sub DelBlankRow()
Dim r As Long
Dim i As Long
r = Sheet1.UsedRange.Rows.Count
For i = r To 1 Step -1
If Cells(i, 2) = "" Then '空格单元格所在的列根据自己，这里是B列。
Rows(i).Delete
End If
Next
End Sub

追问

不能运行

追答

我测试过通过。出现什么问题？

追问

运行速度很慢,我写了一个代码 [b:b].SpecialCells(4).Delete (3)
运行速度很快,但超过1万多行运行时再现删除第二列的情况.

追答

我测试通过是数据量比较少，现在数据量大运行速度慢了，那你想办法修改代码加快速度。

Answer 2

你可以这样，把不是空格的数据筛选出来，然后全选 复制，在另一个页面粘贴(选择粘贴数值)，