excel - 在包含连接值的表末尾插入新列

Question

我有一个工作表在工作，我想设计一个宏来在表的末尾插入一列，以包含表内三列的连接值，它们之间有一个分隔符（“-”）。到目前为止，我已经能够插入新列，但无法连接值。我的代码在下面，并添加了注释....

Sub Demo()
Dim tbl As ListObject
Dim cel As Range
Dim i As Long
Dim delim As String
    Set tbl = ActiveSheet.ListObjects("Table1")
    delim = "-"
    With tbl
        .ListColumns.Add.Name = "CMRD"
        For Each cel In .ListColumns("CMRD").DataBodyRange.Cells
            With .DataBodyRange
                i = cel.Row - 1
                cel.Value = .Cells(i, 6) & delim & .Cells(i, 2) & delim & .Cells(i, 13)
            End With
        Next
    End With
End Sub

任何帮助将不胜感激。谢谢你

编辑：解决方案已验证 - 代码已更新以反映。

标签： excelvbanew-operator