Excel VBA运行时错误：无法获取WorksheetFunction类的Match属性求助

嘿，我一眼就揪出你代码里的问题了！你现在的写法是把标签的属性引用拼成了字符串文本，而不是真正去读取标签控件的Caption值——这就是为啥手动写LabelXXX.Caption能正常运行，但循环里就报错的核心原因。

具体问题分析 #

你这段代码里的ctlname = "Label" & ctl.Name & ".Caption"，其实只是生成了一个类似"LabelSampleName.Caption"的字符串而已，并不是去获取对应标签的标题内容（比如你需要的"Sample Name"）。当你把这个字符串传给Match函数时，它会在表头里找这个字符串，而你的表头是带空格的实际标题，自然匹配不到，就抛出了“无法获取Match属性”的错误。

修正后的代码方案 #

下面是调整后的代码，我标注了关键修改点：

Dim ssheet As Worksheet
Dim rngsource As Range
Dim nr As Long
Dim ctl As Control
Dim targetLabel As msforms.Label
Dim colName As String
Dim matchCol As Variant

Set ssheet = ThisWorkbook.Sheets("Sheet1")
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

With ssheet
    ' 正确定义表头范围（注意你原来的变量名打错了：rngsoruce → rngsource）
    Set rngsource = .Range(.Cells(1, 1), .Cells(1, .Range("A1").End(xlToRight).Column))
    
    For Each ctl In Me.Controls
        If TypeOf ctl Is msforms.TextBox Then
            ' 1. 根据文本框名称找到对应的标签控件
            On Error Resume Next ' 防止找不到对应标签时报错
            Set targetLabel = Me.Controls("Label" & ctl.Name)
            On Error GoTo 0
            
            If Not targetLabel Is Nothing Then
                ' 2. 获取标签的Caption（也就是带空格的列名）
                colName = targetLabel.Caption
                
                ' 3. 安全执行Match，避免找不到列名时报错
                matchCol = Application.Match(colName, rngsource, 0)
                If Not IsError(matchCol) Then
                    ' 写入数据到对应列
                    .Cells(nr, matchCol).Value = ctl.Value
                    ctl.Text = ""
                Else
                    ' 可选：如果找不到列名，可以加个提示
                    MsgBox "未找到列名：" & colName, vbExclamation
                End If
                
                ' 释放对象变量
                Set targetLabel = Nothing
            End If
        End If
    Next ctl
End With

关键修改说明 #

• 获取真实的标签控件：不再拼接字符串，而是直接通过Me.Controls("Label" & ctl.Name)找到对应的标签对象，这样才能读取它的Caption属性。
• 修复了变量拼写错误：你原来的代码里把rngsource写成了rngsoruce，这也是潜在的崩溃隐患。
• 增加了错误处理：加入了On Error Resume Next处理找不到标签的情况，以及用IsError判断Match的结果，避免因为列名不存在导致程序崩溃。
• 明确变量类型：给变量加上了明确的类型声明，让代码更规范易读。

额外建议 #

如果你的标签命名规则不是严格的Label+文本框名，可以试试给每个文本框的Tag属性设置对应标签的名称，这样匹配会更灵活，也不容易出错。

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