如何在VBA中用Union结合Find方法搜索B、C、G列？

你之前的代码问题出在没有给Union中的Range对象指定目标工作表shWaseet，导致默认引用了当前活动工作表，和shWaseet不匹配，进而引发错误或搜索失效。以下是正确的实现方式：

正确代码示例 #

1. 搜索整列（B:C、G:G） #

Dim searchRange As Range
' 给每个Range都指定shWaseet，确保范围属于目标工作表
Set searchRange = Union(shWaseet.Range("B:C"), shWaseet.Range("G:G"))

Dim findName As Range
' 在合并的范围上执行Find
Set findName = searchRange.Find( _
    What:=Me.SearchBox.Value, _
    LookIn:=xlValues, _
    LookAt:=xlPart, _
    MatchCase:=False ' 可根据需求设置是否区分大小写
)

2. 限定到指定行（比如到irow行） #

如果只需要搜索到第irow行的数据，调整范围即可：

Dim searchRange As Range
Set searchRange = Union( _
    shWaseet.Range("B1:C" & irow), _
    shWaseet.Range("G1:G" & irow) _
)

Dim findName As Range
Set findName = searchRange.Find( _
    What:=Me.SearchBox.Value, _
    LookIn:=xlValues, _
    LookAt:=xlPart, _
    MatchCase:=False
)

错误原因说明 #

• 你之前的Set ran = Union(Range("B:C"), Range("G:G"))写法中，Range("B:C")默认指向当前活动工作表，并非shWaseet，后续用shWaseet.Range(ran)自然会报错。
• shWaseet.Union(...)是错误用法，因为Union是Application对象的方法，不属于Worksheet对象，必须保证内部的Range都归属shWaseet，再调用Union。

结果处理示例 #

找到匹配项后可进行后续操作：

If Not findName Is Nothing Then
    MsgBox "找到匹配内容，位置：" & findName.Address
Else
    MsgBox "未找到匹配内容"
End If

内容的提问来源于stack exchange，提问作者Hamza Dabjan