excel 2003 运行时错误 '91' 请帮忙看看怎么解决?

duzlin · 发表于 2011-4-14 10:14

代码如下:
Dim k, i, R As Long
i = ActiveSheet.UsedRange.Rows.Count
R = ActiveSheet.UsedRange.Rows(i).Row
For i = 3 To R
k = Sheet1.Range(Cells(i, 1), Cells(R, 1)).Find("序号", , , 1).Row '在A列中查找单元格的值为"序号"的行,并记录行号给K

If k <> 0 Then Cells(k, 1).EntireRow.Delete'删除行
Next

运行提示91错误,对象变量或with变量未设置,请问代码应如何修改?谢谢!

duzlin · 发表于 2011-4-14 10:25

不好意思,发错地方了

doitbest · 发表于 2011-4-14 14:20

i 这个变量怎么用了两次，又取数，又做循环的

duzlin · 发表于 2011-4-14 15:13

原帖由 doitbest 于 2011-4-14 14:20 发表
i 这个变量怎么用了两次，又取数，又做循环的

这个应该没有问题,在for里面重新赋值了,就跟前面的取数没关系了

doitbest · 发表于 2011-4-14 15:38

上个附件吧，初步感觉是find没有找到

duzlin · 发表于 2011-4-14 18:24

附件如下：

doitbest · 发表于 2011-4-15 10:13

Sub del1()
Rows(1).AutoFilter
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:="序号"
Range([a2], [a2].End(xlDown)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

duzlin · 发表于 2011-4-15 16:13

原帖由 doitbest 于 2011-4-15 10:13 发表
Sub del1()
Rows(1).AutoFilter
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:="序号"
Range([a2], [a2].End(xlDown)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

这个可以解决问题，谢谢！
同时想请教一下，原来的代码问题出在哪里？

doitbest · 发表于 2011-4-15 16:56

find 必须和循环结合才可以

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