[已解决]请帮帮忙，谢谢。

zld0807

求删除产品型号与合计之间的无任何值的行（空行）。
谢谢老师们帮忙。

最佳答案

月排行榜 / 总排行榜

wp8680

2013-6-9 12:47

1. Sub 删除空值()
   
2.     Dim X%, Y%, b As Boolean
   
3.     X = Range("a" & Cells.Rows.Count).End(xlUp).Row
   
4.     For Y = X To 1 Step -1
   
5.         If Range("a" & Y) = "合计" Then b = True
   
6.         If Range("a" & Y) = "产品型号" Then b = False
   
7.         If Application.WorksheetFunction.CountBlank(Rows(Y & ":" & Y)) = Cells.Columns.Count And b Then Rows(Y & ":" & Y).Delete
   
8.     Next Y
   
9. End Sub

复制代码

跳转到最佳答案楼层

wp8680

1. Sub 删除空值()
   
2.     Dim X%, Y%, b As Boolean
   
3.     X = Range("a" & Cells.Rows.Count).End(xlUp).Row
   
4.     For Y = X To 1 Step -1
   
5.         If Range("a" & Y) = "合计" Then b = True
   
6.         If Range("a" & Y) = "产品型号" Then b = False
   
7.         If Application.WorksheetFunction.CountBlank(Rows(Y & ":" & Y)) = Cells.Columns.Count And b Then Rows(Y & ":" & Y).Delete
   
8.     Next Y
   
9. End Sub

复制代码