[已解决]求帮忙删下空单元行

zld0807

如附件所示，需要删除产品型号与合计之间的空行（其余空行不删）。
请老师们帮帮忙。

最佳答案

月排行榜 / 总排行榜

wp8680

2013-6-9 12:52

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

复制代码

跳转到最佳答案楼层

zld0807

补充说明一下，可能会出现产品型号一个公司产品型号一样的情况，但是采购的价格采购量又不一样，所以删除的行必须是产品型号与合计之间没有任何值的空行。

suxiong

不是都在产品型号与合计之间的空行之间吗？

zld0807

是的，但是我漏了一种情况，例如产品型号为A2的时候，有两批采购的东西，价格和数量都不一样。
所以需要判断是产品型号与合计之间没有任何值的行，然后删除。

包里一本书

zld0807 发表于 2013-6-9 11:13
是的，但是我漏了一种情况，例如产品型号为A2的时候，有两批采购的东西，价格和数量都不一样。
所以需要判 ...

楼主看看是不是这样可以做到，你想要的效果。

zld0807

重新来个附件

zld0807

不好意思 ，用VBA

张雄友

用F5定位不是很快？

zld0807

不是那个意思 兄弟

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

复制代码