会Excel代码编写的请帮助 (1人在浏览)

[ddg]

本人想在工作表中删除多余的行（空行），在百度里学着编写下列代码：
Private Sub worksheet_selectionchange(ByVal target As Range)
i = 1
j = 1
Do While j <= 100
'不知道你到底有多少行数据，搞大点
If Cells(i) = "" Then
'如果第一个单元格为空
Rows(i).Select
Selection.Delete shift:=xlUp
Else
i = i + 1
End If
i = j + 1
Loop
End Sub



显示这行 If Cells(i) = "" Then 是黄色的。运行时提示：应用程序定义或对象定义错误。
请大虾们帮助帮助给出正确代码。有酬

 

[ddg]

QUOTE(ddg @ 2012年05月27日 Sunday, 08:47 AM)
本人想在工作表中删除多余的行（空行），在百度里学着编写下列代码：
Private Sub worksheet_selectionchange(ByVal target As Range)
i = 1
j = 1
Do While j <= 100
'不知道你到底有多少行数据，搞大点
If Cells(i) = "" Then
'如果第一个单元格为空
Rows(i).Select
Selection.Delete shift:=xlUp
Else
i = i + 1
End If
i = j + 1
Loop
End Sub
显示这行 If Cells(i) = "" Then 是黄色的。运行时提示：应用程序定义或对象定义错误。
请大虾们帮助帮助给出正确代码。有酬

[snapback]3365292[/snapback]​

 

[byronroy]

还没研究过那么高深的

微博有个Excel技巧网，可询问

 

[听妈妈的话]

本人想在工作表中删除多余的行（空行），这个问题很简单，不用关联到什么代码吧，你直接发问题上来。。。

 

[听妈妈的话]

我现在才看到贴，我想你的问题应该解决了。。。

 

[小云和小吉]

楼主说的是编程不是电子表格使用技巧吧。

 

[听妈妈的话]

系统里的单元格？楼主说得不是很清楚。。。

 

[joesphine]

可以运行的！但要确保你的excell是正版的！

 

[lj_sky]

这个程序的逻辑设计是有问题的，因为常量j在程序中的值没有依条件变化，那么：
Do While j <= 100这个条件永远成立，程序将会是个死循环。