[已解决]怎样用代码规定一个区域中空白删除所在行

gx0705

编号        数值
1        10
2       
3        100
4       
5        20
6        20
7       
8       
9       
10       
11        10
我是想把上面那个，变成下面那个
编号        数值
1        10
3        100
5        20
6        20
11        10

gx0705

就是对应数值中为空的整行删除，谢谢各位哦

风林火山

gx0705 发表于 2013-7-7 19:10
这个不能一次删除，要很多次才可以哦

你不是删除B2:B10之间空行吗？一次完成了

gx0705

风林火山 发表于 2013-7-7 19:26
你不是删除B2:B10之间空行吗？一次完成了

不行哦，我重新打开都不行

dongqing1998

gx0705 发表于 2013-7-7 18:44
我想规定B2:B10哦，应该怎样修改呢

With Sheets("sheet2")
For i =10 To 2 Step -1
If Sheet2.Cells(i, 2) = "" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End With

ligh1298

1. Sub 删除空白行()
   
2. For Each Rng In [b2:b10]
   
3. If Rng = "" Then
   
4. Rng.EntireRow.Delete
   
5. End If
   
6. Next
   
7. End Sub

复制代码

sliang28

ligh1298 发表于 2013-7-7 20:16

这个代码应该不行吧！因为你是一行一行删除，不是统一一次性删除，循环后面的空行有可能不能删除掉。这个应该要用倒循环。

sliang28

楼主，根据你提供的数据你的代码是不行的。
问题在于row1返回的是1，不是10，将代码Range("B2:B10")改写成Range("A11")就能达到你的要求了。
试一下吧！

gx0705

dongqing1998 发表于 2013-7-7 19:43
With Sheets("sheet2")
For i =10 To 2 Step -1
If Sheet2.Cells(i, 2) = "" Then

这个好像可以，请问怎样把程序弄到EXCEL中？我现在是设置在命令按钮上的，但如果我想打开sheet2界面时命令自动执行，应该如何呢？谢谢

gx0705

请各位大侠帮帮忙啦，谢谢