Question

vba中查找下一个 '不能取得 rang 的findnext属性是怎么回事？

Public Sub FindMe(strToFind As String)
Dim rngC As Range '对象
Dim FirstAddress As String '起始位置
Dim intS As Integer '保存位置
Dim wSht As Worksheet
Application.ScreenUpdating = False '关闭刷新
intS = 1

With xlsheet.UsedRange '' 选择表销售汇总表中的使用范围
Set rngC = .Find(what:=strToFind, LookAt:=xlWhole) 'XlLookAt 常量之一：xlPartXlLookAt 常量之一：xlPart （是部分匹配 ）或 xlWhole（是完全匹配）。
If Not rngC Is Nothing Then
FirstAddress = rngC.Address
Do
rngC.EntireRow.Delete Shift:=xlUp
intS = intS + 1
Set rngC = .FindNext(rngC) '查找下一个 '不能取得 rang 的findnext属性是怎么回事？？？？
Loop While Not rngC Is Nothing And rngC.Address <> FirstAddress
End If
End With
Application.ScreenUpdating = True '开启刷新
End Sub

Answer 1

rngC.EntireRow.Delete Shift:=xlUp
这句已经把rngC整行删除了，所以rngC为空了，怎么能引用该行呢？
应改为
dim ro as long
ro=rngC.row
rngC.EntireRow.Delete Shift:=xlUp
set rngC=range("a" & ro-1)
……
后边直接用你原代码。

追问

上面的“a"是什么？

追答

其实是把a列的ro-1行单元格指针重新赋给rngC

追问

对象 rang的方法_global失败，还是不行

追答

你的rngC区域是选定区域吗？程序中这些代码不知指代什么？
其实失败的原因是把对象删除了以后又引用该对象是不成立的。

追问

我只是想删除含有特定字符的整行

追答

………………………………………………………………………………
我没想到你是在vb里写代码，还以为是vba的上述修改作废只改下边两句
Set rngC = .FindNext(rngC)改为下一句可以通过了。.findnext方法不需要参数
Set rngC = .FindNext()

Loop While Not rngC Is Nothing And rngC.Address FirstAddress这句里的rngC肯定是false或出错，因为rngC不为NOthing ,第一个条件不成立，rngC为Nothing时，第二条件就无法判断是否与firstaddress的值相等。最好只保留第一个条件，因为上一句查找不到时，rngC一定是Nothing。
改好的文件已email给你。