通过VBA用户窗体查找单元格地址的报错问题求助

错误根源梳理 #

你的代码存在几个核心问题导致运行时错误：

• Range区域语法错误：连续单元格区域需用冒号:表示，比如Range("C7:G19")，而非Range("C7","G19")（后者仅代表两个独立单元格的交集）
• 工作表函数调用不规范：MATCH、INDEX这类工作表函数在VBA中必须通过Application.WorksheetFunction（或简化为Application）调用，不能直接裸写
• MsgBox语法错误：MsgBox是输出过程，不能使用赋值语句MsgBox = data_address，正确写法为MsgBox data_address
• 字符串引号未闭合：Range("C7","G19)缺少右侧引号，属于基础语法错误

修正后的代码方案 #

以下两种实现分别对应你提供的两个工作表函数逻辑，均可正常运行：

方案1：基于ADDRESS+ROW+INDEX逻辑

Dim n As Integer
Dim search_key As String
Dim matchRow As Integer
Dim targetRange As Range

' 绑定目标数据区域，建议指定具体工作表避免歧义
Set targetRange = ThisWorkbook.Sheets("你的工作表名称").Range("C7:G19")

For n = 9 To 14
    ' 引用用户窗体标签控件的Tag值
    search_key = Me.Controls("Label" & n).Tag
    
    ' 获取匹配值在数据区域内的行号
    matchRow = Application.WorksheetFunction.Match(search_key, targetRange.Columns(1), 0)
    
    ' 计算对应G列单元格的地址
    data_address = Application.WorksheetFunction.Address(targetRange.Cells(matchRow, 5).Row, _
                  targetRange.Cells(matchRow, 5).Column)
    
    MsgBox data_address
Next n

方案2：基于CELL函数逻辑（VBA中用Range.Address更直接）

Dim n As Integer
Dim search_key As String
Dim matchCell As Range
Dim targetRange As Range

Set targetRange = ThisWorkbook.Sheets("你的工作表名称").Range("C7:G19")

For n = 9 To 14
    search_key = Me.Controls("Label" & n).Tag
    
    ' 定位C列中匹配的单元格
    Set matchCell = Application.WorksheetFunction.Index(targetRange.Columns(1), _
                    Application.WorksheetFunction.Match(search_key, targetRange.Columns(1), 0))
    
    ' 偏移到同 row 的G列（C到G偏移4列）并获取地址
    data_address = matchCell.Offset(0, 4).Address
    
    MsgBox data_address
Next n

额外优化建议 #

如果存在搜索值不存在的场景，建议用Application.Match替代Application.WorksheetFunction.Match，这样找不到匹配时会返回错误值而非直接抛出运行时错误，可通过IsError做异常处理：

matchRow = Application.Match(search_key, targetRange.Columns(1), 0)
If Not IsError(matchRow) Then
    ' 执行获取地址的逻辑
Else
    MsgBox "未找到匹配值：" & search_key
End If

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