一个我怎么也没看出来哪儿出错的bug....

VegetableBird · 发表于 2011-4-20 09:58

很简单的几行vba，直接贴不附件了...
功能就是我想看第几列中有几个单元格是空格，如果是空格就把这一行都删除
结果在执行到第5行程序即If Cells(i, c) = "" Then就报错了
我怎么看这行也没什么错误啊

Dim i, c, d As Integer
c = Application.InputBox("请输入用来判定的列数")
d = Application.InputBox("请输入最大的行数")
For i = 1 To d
If Cells(i, c) = "" Then
Rows(i).Select
Selection.Delete
i = i - 1
End If
Next i

[ 本帖最后由 VegetableBird 于 2011-4-21 09:15 编辑 ]

little-key · 发表于 2011-4-20 10:12

可以直接使用函数就可以，vba调用常规函数。

dsmch · 发表于 2011-4-20 10:27

For i = d to 1 step -1
If Cells(i, c) = "" Then Rows(i).Delete
Next i

cjainwei · 发表于 2011-4-20 10:28

删除行，好象用倒序！
改成For i = d To 1 step -1
再把i=i-1去掉

dsmch · 发表于 2011-4-20 11:35

inputbox 怎么用的是方法？用下面的语句试试
c = val(InputBox("请输入用来判定的列数"))
d……
再不行上传附件看看。

VegetableBird · 发表于 2011-4-20 11:30

3楼的原理我懂，比我的更简洁
问题这代码输进去执行还是不行啊，还是报错说
应用程序定义或对象定义错误,
还是if 那一行报错真见鬼了

VegetableBird · 发表于 2011-4-20 12:29

它是if then 那一行报错啊不是inputbox的问题

删除空行.rar (11.49 KB, 下载次数: 9)

dsmch · 发表于 2011-4-20 14:58

试试下面的代码
c = Val(InputBox("请输入用来判定的列数"))
d = Val(InputBox("请输入最大的行数"))
For i = d To 1 Step -1
If Cells(i, c) = "" Then Rows(i).Delete
Next i

VegetableBird · 发表于 2011-4-20 15:20

楼上的哥哥你那代码一执行excel就直接报错关闭了...

dsmch · 发表于 2011-4-20 15:28

原帖由 VegetableBird 于 2011-4-20 15:20 发表
楼上的哥哥你那代码一执行excel就直接报错关闭了...

测试过才发的，那没有办法了。

		自动登录	找回密码
密码			免费注册

[已解决] 一个我怎么也没看出来哪儿出错的bug....