VBA引用Excel表格时逗号/双下划线名称识别不一致问题求助

问题根源 #

你遇到的报错本质是工作簿内的结构化表格（ListObject）本身命名不统一：部分表格使用, 分隔姓和名，另一部分使用__分隔，并非VBA引用规则存在差异。

解决方案1：批量统一表格命名（推荐） #

直接把所有Transfer_Data_开头的表格名称统一替换为逗号分隔格式，之后就可以直接用报表导出的原生姓名拼接引用。
运行以下宏即可完成批量重命名：

Sub 统一表格命名为逗号格式()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim newName As String
    
    For Each ws In ThisWorkbook.Worksheets
        For Each tbl In ws.ListObjects
            ' 只处理Transfer_Data_开头的表格
            If Left(tbl.Name, 13) = "Transfer_Data" Then
                ' 把名称里的双下划线替换为逗号+空格
                newName = Replace(tbl.Name, "__", ", ")
                ' 防止重复重命名报错
                If tbl.Name <> newName Then
                    tbl.Name = newName
                End If
            End If
        Next tbl
    Next ws
End Sub

运行完成后，你就可以统一用Transfer_Data_姓, 名的格式引用所有对应表格。

解决方案2：不改现有表名，做兼容处理 #

如果不想修改现有表格的名称，可以写一个通用的获取表格的函数，自动适配两种命名格式，你调用的时候直接传入原生的逗号分隔姓名即可：

Function GetTransferTable(fullName As String) As ListObject
    Dim tblName1 As String, tblName2 As String
    ' 生成两种格式的表名
    tblName1 = "Transfer_Data_" & fullName
    tblName2 = "Transfer_Data_" & Replace(fullName, ", ", "__")
    
    On Error Resume Next
    ' 先试逗号格式
    Set GetTransferTable = TransferSheet.ListObjects(tblName1)
    ' 没找到就试双下划线格式
    If GetTransferTable Is Nothing Then
        Set GetTransferTable = TransferSheet.ListObjects(tblName2)
    End If
    On Error GoTo 0
End Function

调用示例：

' 假设你从组合框拿到的姓名是"KIDD, CHRISTIAN"
Dim targetTbl As ListObject
Set targetTbl = GetTransferTable("KIDD, CHRISTIAN")

If Not targetTbl Is Nothing Then
    ' 后续你要做的插入行、填充内容的逻辑写在这里
    Debug.Print targetTbl.Range.Address
Else
    MsgBox "未找到对应用户的表格"
End If

注意事项 #

后续如果需要新增表格，统一使用, 作为姓和名的分隔符，就可以一直沿用原生导出的姓名格式引用，不需要额外处理。

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