跨Excel工作表匹配人员字段填充表格的VBA代码调试求助

问题排查 #

你原代码存在3个核心错误：

• 匹配逻辑错误：找到姓名后直接返回了姓名本身，没有取对应列的字段表头值，这是无法得到所属字段的核心原因
• Find方法未指定匹配参数：Excel的Find方法会默认继承上次使用时的参数，不显性指定LookAt等参数容易出现模糊匹配、匹配失败的问题
• 查找范围本身没问题：只要你的Sheet1人员分配区域确实是F9:I12，这行的范围设置是正确的

修正后VBA代码（含字段匹配+日期填充功能） #

Sub 匹配字段和日期()
    Dim rgFound As Range
    Dim defVal As Range
    Dim currParam As Range
    Dim 字段名 As String
    Dim 日期Rng As Range
    
    With Worksheets("Sheet2")
        ' 遍历Sheet2 B列所有人员姓名，结果填到C列（字段）和D列（日期）
        For Each defVal In .Range("C3", .Range("B" & Rows.Count).End(xlUp)).Offset(, 1)
            Set currParam = defVal.Offset(, -1) ' 取B列当前行的姓名
            If Len(currParam.Value) > 0 Then
                ' 显式指定Find匹配参数，避免匹配错误
                Set rgFound = Worksheets("Sheet1").Range("F9:I12").Find( _
                    What:=currParam.Value, _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, _
                    MatchCase:=False _
                )
                If rgFound Is Nothing Then
                    defVal.Value = "未匹配到人员"
                    defVal.Offset(, 1).Value = ""
                Else
                    ' 取姓名所在列的表头行（示例为第9行）值作为字段名
                    字段名 = Worksheets("Sheet1").Cells(9, rgFound.Column).Value
                    defVal.Value = 字段名
                    
                    ' 到Sheet1左侧区域匹配字段对应的日期
                    Set 日期Rng = Worksheets("Sheet1").Range("A9:A12").Find( _
                        What:=字段名, _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        MatchCase:=False _
                    )
                    If Not 日期Rng Is Nothing Then
                        ' 示例假设日期存放在字段名所在行的D列，偏移值3可根据实际列调整
                        defVal.Offset(, 1).Value = 日期Rng.Offset(, 3).Value
                    Else
                        defVal.Offset(, 1).Value = "未匹配到日期"
                    End If
                End If
            End If
        Next defVal
    End With
End Sub

自定义调整说明 #

• 如果Sheet1字段表头的行号不是第9行，修改Cells(9, rgFound.Column)里的行号即可
• 如果Sheet1左侧日期存放的列不是D列，修改日期Rng.Offset(, 3)里的偏移值即可，比如存放在C列就改成2
• 如果Sheet2日期要填充的列不是D列，调整defVal.Offset(, 1)的偏移值即可

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