[已解决]请教大神：怎样删除绿色区域为空的行？谢！

白云无尽9987

请教大神：怎样删除绿色区域为空的行？谢！.rar (18.19 KB, 下载次数: 8)

2016-6-8 09:56 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-8 10:44

代码如下：

1. Sub 删行2()
   
2.     Dim rng As Range, i&, j&, rng1 As Range, rng2 As Range
   
3.     Set rng = Sheet1.Range("F4:F31")
   
4.     For i = 27 To 1 Step -2
   
5.         If rng(i, 1) = "" Then
   
6.             rng(i, 1).Resize(2, 1).EntireRow.Delete
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

代码如下：

1. Sub 删行2()
   
2.     Dim rng As Range, i&, j&, rng1 As Range, rng2 As Range
   
3.     Set rng = Sheet1.Range("F4:F31")
   
4.     For i = 27 To 1 Step -2
   
5.         If rng(i, 1) = "" Then
   
6.             rng(i, 1).Resize(2, 1).EntireRow.Delete
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码