关于整理Excel数据的一个问题。

来源:百度知道 编辑:UC知道 时间:2024/06/06 16:23:11
比如表格里的数据是:
A B C
A B C
A B
A B C
第3行里最后一格没有数据,我就要删除那一行,
以前是一个个的选择然后删的,现在数据太多了。
有什么办法能一下把这样的删完吗?

自动筛选,在C列筛选空
然后把显示出来的全部删除(整行删除)

'用VBA代码实现!

'按alt+f11进入VBE编辑窗口,然后选择插入----模块----会打开一个模
'块窗口,把下面的代码复制进去--保存,再次按alt+f11返回excel窗口
'按alt+f8打开运行宏窗口,会看到delnullnum宏,运行它就可以了!
'(代码亲测,希望对你有用)

'-------------以下代码部分,可全部复制我的答案到模块窗口---------------

Option Explicit

Sub delnullnum()
Dim a, i As Integer
a = Sheet1.Range("a65536").End(xlUp).Row
For i = a To 1 Step -1
If Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub