Excel宏开发问题：如何将Home表列数据追加至Sheet1表格右侧

我来帮你搞定这个痛点！你现在的宏只能单次复制数据，没法每次运行都给表格新增一列，核心就是要先定位表格当前的最后一列，把新数据贴到下一列后，再把这一列纳入表格范围就行。下面是具体的实现方案：

完整可运行的宏代码 #

Sub CopyColumnToTable()
    Dim wsHome As Worksheet
    Dim wsSheet1 As Worksheet
    Dim tbl As ListObject
    Dim lastRowHome As Long
    Dim targetCol As Integer
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 绑定工作表对象（避免后期绑定的歧义）
    Set wsHome = ThisWorkbook.Worksheets("Home")
    Set wsSheet1 = ThisWorkbook.Worksheets("Sheet1")
    ' 获取Sheet1中的目标表格（记得把Table1改成你实际的表格名称）
    Set tbl = wsSheet1.ListObjects("Table1")
    
    ' 动态获取Home工作表目标列的最后一行数据（这里假设是A列，可按需修改）
    lastRowHome = wsHome.Cells(wsHome.Rows.Count, "A").End(xlUp).Row
    ' 定义要复制的数据源范围
    Set sourceRange = wsHome.Range("A1:A" & lastRowHome)
    
    ' 计算表格的目标列：当前列数+1，也就是最右侧的新列位置
    targetCol = tbl.ListColumns.Count + 1
    ' 定义目标粘贴范围，行数和数据源完全匹配
    Set targetRange = tbl.Range.Cells(1, targetCol).Resize(sourceRange.Rows.Count, 1)
    
    ' 直接赋值数据（比复制粘贴更高效，还不占用剪贴板）
    targetRange.Value = sourceRange.Value
    
    ' 确保新列被纳入表格范围（如果表格没自动扩展的话）
    If targetCol > tbl.ListColumns.Count Then
        tbl.ListColumns.Add Position:=targetCol
    End If
    
    MsgBox "数据已成功追加到表格右侧！", vbInformation
End Sub

关键逻辑拆解 #

• 动态获取数据源：用wsHome.Cells(wsHome.Rows.Count, "A").End(xlUp).Row精准定位Home列的最后一行数据，不管数据行数怎么变都能适配。
• 定位表格新列：通过tbl.ListColumns.Count拿到当前表格的列数，加1就是要新增的列位置，保证每次都贴在最右边。
• 高效复制数据：直接用Value赋值替代传统的复制粘贴，速度更快还不会干扰剪贴板内容。
• 扩展表格范围：如果新列没被自动纳入表格，手动调用ListColumns.Add把它加进去，确保表格结构完整。

自定义调整提示 #

• 把代码里的Table1改成你实际的表格名称（可以在Excel顶部的「表格设计」选项卡查看表格名）。
• 如果你的源数据列不是A列，把代码里的"A"改成对应的列标识（比如"B"或者数字2）。
• 如果源数据包含表头，且需要给表格新列设置对应表头，可以在代码末尾加一行：tbl.ListColumns(targetCol).Name = wsHome.Range("A1").Value，同时把sourceRange改成wsHome.Range("A2:A" & lastRowHome)避免重复复制表头。

这样修改后，每次运行宏，都会自动在Sheet1的表格最右侧新增一列，把Home里的最新数据放进去啦！

内容的提问来源于stack exchange，提问作者Brandon M.