Excel VBA技术问询：如何用列序号替代表头在CONCATENATE中拼接表格列

没问题，我来帮你把代码补全并调整成用列序号来完成拼接填充的功能。核心思路是通过ListObject的列序号定位目标列，然后给新添加的列批量设置拼接公式（或者直接赋值计算结果）。

以下是完整的修正代码，我会加上详细注释帮你理解：

Sub AddColAndName(ws As Worksheet, tbl As ListObject, newColPos As Long, newColName As String, conColPos1 As Long, conColPos2 As Long)
    With tbl
        ' 添加新列到指定位置
        .ListColumns.Add newColPos
        ' 设置新列的表头名称
        .HeaderRowRange(newColPos) = newColName
        
        ' 定义数据区域的起始行和结束行（跳过表头）
        Dim startRow As Long, endRow As Long
        startRow = .DataBodyRange.Row
        endRow = .DataBodyRange.Row + .DataBodyRange.Rows.Count - 1
        
        ' 方案1：用公式填充（会保留公式，方便后续更新）
        ' 这里用列序号直接引用对应列的单元格，比如第5列就是Cells(i, conColPos1)
        Dim i As Long
        For i = startRow To endRow
            .DataBodyRange(i - startRow + 1, newColPos).Formula = _
                "=CONCATENATE(" & ws.Cells(i, conColPos1).Address(False, False) & ", " & ws.Cells(i, conColPos2).Address(False, False) & ")"
        Next i
        
        ' 方案2：直接赋值计算结果（不会保留公式，值固定）
        ' 如果不需要公式，只想存拼接后的文本，可以用下面的代码替换上面的循环
        ' For i = startRow To endRow
        '     .DataBodyRange(i - startRow + 1, newColPos).Value = _
        '         ws.Cells(i, conColPos1).Value & ws.Cells(i, conColPos2).Value
        ' Next i
    End With
End Sub

关键说明： #

• 代码里的conColPos1和conColPos2就是你要拼接的列序号（比如第5列传5，第6列传6），newColPos是新列的位置（比如要加第7列就传7）。
• 方案1用公式填充，好处是后续修改第5/6列的内容时，第7列会自动更新；方案2直接赋值文本，结果固定，不会随源列变化。你可以根据需求选一种。
• 注意ListObject的DataBodyRange是数据区域（不含表头），所以用i - startRow + 1来定位DataBodyRange里的行号，对应工作表的行号i。

调用示例（比如给Sheet1的表格添加第7列，用第5和6列拼接）：

Sub Test()
    Dim targetWs As Worksheet
    Dim targetTbl As ListObject
    
    Set targetWs = ThisWorkbook.Worksheets("Sheet1")
    Set targetTbl = targetWs.ListObjects("Table1") ' 替换成你的表格名称
    
    ' 参数：工作表，表格对象，新列位置，新列名称，要拼接的第一列序号，第二列序号
    AddColAndName targetWs, targetTbl, 7, "拼接结果", 5, 6
End Sub

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