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

烟雨北楼

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

周星骋

楼主图像好漂亮，是你女友么？

你这段代码查找的结果，有可能是一个单元格，也有可能是一片单元格区域。

“不会跳到”是什么意思？
是要跳到查找结果的位置呢？
还是不跳到查找结果的位置呢？

是要跳到查找结果的第1个单元格呢？
还是要跳到查找结果的最后1个单元格呢？

如果要跳到查找结果的第1个单元格，在 End Sub 之前加一句 rng.Select
如果要跳到查找结果的最后1个单元格，在 Do ... Loop 之间加一句 rng.Select

另外，Sheet1 工作表里的VBA代码，与 模块2 里的代码重复，
像这种普通过程代码，没必要让它在工作表里，所以 Sheet1 工作表里的代码安全可以删除。
还有，模块1 里没有代码，可以将 模块1 移除。

烟雨北楼

是要跳到查找结果的位置，烦请老师帮我修改。

烟雨北楼

谢谢老师指点。

烟雨北楼

老师再帮我下，要是“订单号”里没有要查的数据，那该怎样显示出。

as42065300

If Not rng Is Nothing Then
                FindAddress = rng.Address
                Do
                    rng.Interior.ColorIndex = 6
                    Set rng = .FindNext(rng)
                Loop While Not rng Is Nothing _
                    And rng.Address <> FindAddress
            Else
                MsgBox "没查找到[" & StrFind & "]的数据"
                Exit Sub
            End If
加上Else