不使用ListColumns.Add()，您可以简单地将一些内容写入表旁边的单元格中。当该列为空时（准确地说，只有表格旁边的单元格需要为空），Excel将自动为表格创建一个新列。然而，不进行移位并且剩余片材的结构保持完整。
现在，如果我理解正确的话，表旁边已经有数据了，所以你需要先插入一个新的（Excel-）列。
下面的例程将执行此操作：搜索表格旁边的第一个单元格，插入一列，并在该列的标题行中写入内容。

Sub CreateNewTableColumn(table As ListObject, caption As String)
    Dim cell As Range
    ' Set Cell to first cell next to the table
    Set cell = table.ListColumns(table.ListColumns.Count).Range.Offset(, 1).Resize(1, 1)
    ' Add an column to the sheet at that position.
    cell.EntireColumn.Insert xlToRight
    ' As adding a column will move the cell reference, to back one column
    Set cell = cell.Offset(0, -1)
    ' Just write the Caption, this will automatically create a new column
    cell.Value = caption
End Sub

字符串
假设tbl保存对表的引用，temp保存新列的标题，可以使用

CreateNewTableColumn tbl, temp

型