使用VBA搜索单元格区域并将匹配行数据返回至用户窗体

我明白你现在的困扰——明明已经定位到C列里匹配的PermitNumber单元格了，但窗体加载的却是当前选中行的数据，这肯定让人头大！问题的核心大概率是你的代码依赖了ActiveCell或Selection来获取行号，而没有直接使用找到的匹配单元格的行号，而且其实完全不需要激活单元格（VBA里尽量避免用Select/Activate，很容易出意外）。

下面给你一套可靠的解决方案：

1. 先写一个获取匹配行号的函数 #

这个函数负责在C列精确查找PermitNumber，返回对应的行号（没找到就返回0），不用激活任何单元格：

Private Function GetMatchingRow(ByVal permitNum As String) As Long
    Dim ws As Worksheet
    Dim matchCell As Range
    
    '替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("BoaterData")
    
    '在C列执行精确匹配查找
    Set matchCell = ws.Columns("C").Find( _
        What:=permitNum, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False _
    )
    
    If Not matchCell Is Nothing Then
        GetMatchingRow = matchCell.Row '返回匹配行的行号
    Else
        GetMatchingRow = 0 '未找到时返回0
    End If
End Function

2. 编写搜索按钮的点击事件 #

假设你的窗体里有一个输入PermitNumber的文本框（比如叫txtPermitNumber）和一个搜索按钮（cmdSearch），点击按钮时触发查找并加载数据：

Private Sub cmdSearch_Click()
    Dim targetRow As Long
    Dim inputPermit As String
    
    '获取用户输入的PermitNumber
    inputPermit = Me.txtPermitNumber.Value
    
    '校验输入是否为空
    If inputPermit = "" Then
        MsgBox "请输入要搜索的PermitNumber！", vbExclamation
        Exit Sub
    End If
    
    '调用函数获取匹配行号
    targetRow = GetMatchingRow(inputPermit)
    
    '处理未找到的情况
    If targetRow = 0 Then
        MsgBox "未找到匹配的PermitNumber，请检查输入！", vbInformation
        Exit Sub
    End If
    
    '加载匹配行的数据到窗体
    LoadDataToForm targetRow
End Sub

3. 编写加载数据到窗体的子过程 #

这个子过程接收匹配行的行号，直接通过行号读取工作表数据，完全不依赖选中的单元格：

Private Sub LoadDataToForm(ByVal rowNum As Long)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("BoaterData") '替换成你的工作表名称
    
    '根据你的实际控件和列对应关系修改以下代码
    Me.txtBoaterName.Value = ws.Cells(rowNum, "A").Value 'A列=船主姓名
    Me.txtBoatType.Value = ws.Cells(rowNum, "B").Value 'B列=船只类型
    Me.txtPermitNumber.Value = ws.Cells(rowNum, "C").Value 'C列=PermitNumber
    Me.txtExpiryDate.Value = ws.Cells(rowNum, "D").Value 'D列=有效期
    '继续添加其他需要加载的控件和对应列...
End Sub

关键注意事项 #

• 替换代码里的BoaterData为你的实际工作表名称，同时根据窗体控件和工作表列的对应关系调整LoadDataToForm里的内容。
• 彻底抛弃依赖ActiveCell或Selection的逻辑，直接使用找到的rowNum来读取数据，这能避免绝大多数因选中单元格变化导致的错误。
• 如果你之前的代码里用了matchCell.Activate之类的语句，可以删掉了——完全没必要激活单元格来读取数据。

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