回复网友VBA之Find_FindNext_并修改数据

回复网友VBA之Find_FindNext_并修改数据

问题：有一个工作表如下

我们想查找到其中的的“哆哆”并修改为“测试”

【解决方法】

我们是先用Find查找再修改，再FindNext下一个，再修改。继续…………

【误区】

前面我有一个文章是查找并复制出来的数据

VBA在多个文件中Find某字符的数据并复制出来

代码如下

WithMyObj.Worksheets(1)

Set c = .Cells.Find(ss,Lookat:=xlPart, LookIn:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

i = i + 1

Lrow =mysht.Cells(Rows.Count, 1).End(xlUp).Row + 1

c.EntireRow.Copymysht.Cells(Lrow, 1)

Set c =.Cells.FindNext(c)

Loop While Not c Is NothingAnd c.Address <> firstAddress

End If

m = m + 1

End With

程序是查找到数据并复制出来，

Loop While Not cIs Nothing And c.Address <> firstAddress

当查找不到and查找到的数据的地址不等于第一个Address时就继续查找，

以上是可行的，

【问题来了】

但如果我们要查找后修改数据，

如果还用是以上的代码就会出现这样的错误

【问题原因】

那么当你把数据修改了以后查找不到数据后，查找不到数据了，就不能运行c.Address了，这样会出错的

【问题解决】

此时我们可以修改代码为

Sub FindNext_修改()

Dim c As Range

With ActiveSheet

Set c = .Cells.Find("哆哆", Lookat:=xlWhole)

If Not c Is Nothing Then

firstAddress = c.Address

Do

c.Value = "测试"

Debug.Print c.Address

Set c = .Cells.FindNext(c)

If c Is Nothing Then

GoTo DoneFinding

End If

Loop While c.Address <>firstAddress

End If

DoneFinding:

End With

End Sub

就可以啦

=====今天就学习到此=====