查找到后不会跳到要查找的指定位置？

小竹长成树

请教老师：查找订单号时查找到后不会跳到要查找的指定位置？烦请老师给予帮助改进。谢谢！

pureshadow

1. Sub RngFindNext()
   
2.     Dim StrFind As String
   
3.     Dim rng As Range
   
4.     Dim FindAddress As String
   
5.     Dim ResAdd As String
   
6.     StrFind = InputBox("请输入要查找的订单号:")
   
7.     If Trim(StrFind) <> "" Then
   
8.         With Sheet1.Range("B:B")
   
9.             .Interior.ColorIndex = 0
   
10.             Set rng = .Find(What:=StrFind, _
    
11.                             After:=.Cells(.Cells.Count), _
    
12.                             LookIn:=xlValues, _
    
13.                             LookAt:=xlWhole, _
    
14.                             SearchOrder:=xlByRows, _
    
15.                             SearchDirection:=xlNext, _
    
16.                             MatchCase:=False)
    
17.             If Not rng Is Nothing Then
    
18.                 FindAddress = rng.Address
    
19.                 Do
    
20.                     rng.Interior.ColorIndex = 6
    
21.                     ResAdd = ResAdd & "," & rng.Address
    
22.                     Set rng = .FindNext(rng)
    
23.                 Loop While Not rng Is Nothing _
    
24.                     And rng.Address <> FindAddress
    
25.                 Range(Mid(ResAdd, 2, 9999)).Select
    
26.             End If
    
27.         End With
    
28.     End If
    
29. End Sub

复制代码

小竹长成树

谢谢老师！

roych

还以为这是一个新人，结果发现伦家注册时间比我还早