[已解决]求助 批量删除 i 列 里的空格行

qhllqhll

求
vba批量删除  I 列里的空格行。
例如：i6为空格 就删除 i6所在的行
谢谢
aa.rar (15.65 KB, 下载次数: 4)

2016-4-12 11:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-4-12 11:49

aa.rar (22.65 KB, 下载次数: 5)

2016-4-12 11:49 上传

点击文件名下载附件

跳转到最佳答案楼层

gufengaoyue

1. Sub Del()
   
2. For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
   
3.      If Trim(Cells(i, "i")) = "" Then Rows(i).Delete
   
4. Next
   
5. End Sub

复制代码

gufengaoyue

aa.rar (22.65 KB, 下载次数: 5)

2016-4-12 11:49 上传

点击文件名下载附件