Question

excel中vba问题

Sub RngFindNext()

Dim StrFind As String

Dim Rng As Range

Dim FindAddress As String
StrFind = InputBox("请输入要查找的值:")

If Trim(StrFind) <> "" Then

With Sheet1.Range("A:A")

Set Rng = Sheet1.Range("A:A").Find(StrFind, .Cells(.Cells.Count, 1), xlValues, xlWhole, xlByRows, xlNext, False)

If Not Rng Is Nothing Then

FindAddress = Rng.Address

Do

Rng.Interior.ColorIndex = 6

Set Rng = Sheet1.Range("A:A").FindNext(Rng)

Loop While Not Rng Is Nothing And Rng.Address <> FindAddress

End If

End With
End If

End Sub
大哥，在这个问题中我有几个问题想问，一个是trim（）是什么作用，另外rng.address<>findaddress,怎么理解这个不等于，谢谢

Answer 1

trim（）是什么作用: 去掉字段前后的空格。
rng.address<>findaddress:
findaddress 是第一个找到的单元格地址。rng.address<>findaddress 如果新找到的单元格地址不等于 findaddress 的话，就继续查找。