帮忙优化 删除H列空单元格所在行的所有数据

大脸杀手

我的公式 如果遇到 H列 最后一行本来就是空格 但是其他列不为空的就不好使了 最后一行还要手动删除，能帮忙优化一下公式吗 谢啦


Sub xx()
For i = 1 To WorksheetFunction.CountA(Range("h:h"))
If Cells(i, 8) = "" Then
Rows(i).Delete
i = i - 1
End If
Next
End Sub

不知道为什么

不是已经用VBA 帮你都解决好了么？为什么还在纠结公式啊

大脸杀手

不知道为什么 发表于 2018-7-2 17:51
不是已经用VBA 帮你都解决好了么？为什么还在纠结公式啊

我说错了 是 优化一下 宏
5555555就是 我宏里面加这个 最后一行 还是 存在呢 如果 H列 最后一行本来就是 空的

不知道为什么

大脸杀手 发表于 2018-7-2 17:57
我说错了 是 优化一下 宏
5555555就是 我宏里面加这个 最后一行 还是 存在呢 如果 H列 最后一行本来就 ...

那就更不明白你的意思了，空值就删除行？

大脸杀手

不知道为什么 发表于 2018-7-2 18:00
那就更不明白你的意思了，空值就删除行？

http://club.excelhome.net/forum. ... DF8MTQyMjQ5NA%3D%3D
就是这个附件

我加了 这个 宏 但是 最后一行的 白红军 还是删不掉

Sub xx()
For i = 1 To WorksheetFunction.CountA(Range("h:h"))
If Cells(i, 8) = "" Then
Rows(i).Delete
i = i - 1
End If
Next
End Sub

yaojil

Sub xx()
For i =  WorksheetFunction.CountA(Range("A:A")) To 1 step 1
If Cells(i, 8) = "" Then
Rows(i).Delete
End If
Next
End Sub

大脸杀手

yaojil 发表于 2018-7-2 18:09
Sub xx()
For i = 1 To WorksheetFunction.CountA(Range("A:A"))
If Cells(i, 8) = "" Then

不可以哦 我刚才就试了 直接 无限循环 都快 死机了

yaojil

倒循环试试，见楼上代码

大脸杀手

yaojil 发表于 2018-7-2 18:09
Sub xx()
For i =  WorksheetFunction.CountA(Range("A:A")) To 1 step 1
If Cells(i, 8) = "" Then

不好意思 是我马大哈 没看清 你的答案