VBA新手求助：跨工作簿复制分散单元格至目标最后空白列

先梳理你原代码里的核心问题：

• 重复打开工作簿：已经用Set wb = Workbooks.Open(filePath)打开了Lab2.xlsx，后续wb.Open()是错误操作——工作簿对象没有Open方法，重复打开还会造成文件锁定、逻辑混乱。
• 未明确指定工作簿：Worksheets("Hoja2")默认指向当前运行代码的工作簿，但你要把数据写到Lab2.xlsx里，必须加wb.前缀明确目标工作簿。
• 目标逻辑不符需求：你要写入最后空白列，但原代码是往B、C、D等列的最后一行追加，属于按行扩展，完全不符合按列填充的要求。
• 多余的Select操作：Range("C6").Select这类代码毫无意义，VBA操作单元格不需要先选中，直接引用对象即可，Select只会拖慢代码。
• 未恢复Excel设置：你关闭了屏幕更新和警告，但最后没恢复，会导致Excel界面一直处于异常状态。

修正后的代码 #

Option Explicit '强制变量声明，避免拼写错误引发的Bug

Sub CopyName()
    Dim wbSource As Workbook '当前数据源工作簿
    Dim wbTarget As Workbook '目标工作簿(Lab2.xlsx)
    Dim wsSource As Worksheet '数据源工作表(Hoja1)
    Dim wsTarget As Worksheet '目标工作表(这里用你指定的Series)
    Dim lastCol As Long '目标工作表的最后空白列
    Dim filePath As String
    
    '关闭冗余界面操作，提升代码运行速度
    Application.CutCopyMode = False
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    '初始化对象
    Set wbSource = ThisWorkbook '当前运行代码的工作簿
    Set wsSource = wbSource.Worksheets("Hoja1")
    filePath = "C:\Users\Usuario\Documents\Lab2.xlsx"
    
    '打开目标工作簿
    Set wbTarget = Application.Workbooks.Open(filePath)
    Set wsTarget = wbTarget.Worksheets("Series") '可根据实际需求修改工作表名
    
    '获取目标工作表的最后空白列
    '如果目标表第一行是表头，用这句：lastCol = wsTarget.Cells(1, wsTarget.Columns.Count).End(xlToLeft).Column + 1
    '如果要找整个表的最后使用列，用这句：
    lastCol = wsTarget.UsedRange.Columns(wsTarget.UsedRange.Columns.Count).Column + 1
    
    '将C6-C10的内容依次写入目标工作簿的最后空白列
    wsTarget.Cells(1, lastCol).Value = wsSource.Range("C6").Value
    wsTarget.Cells(2, lastCol).Value = wsSource.Range("C7").Value
    wsTarget.Cells(3, lastCol).Value = wsSource.Range("C8").Value
    wsTarget.Cells(4, lastCol).Value = wsSource.Range("C9").Value
    wsTarget.Cells(5, lastCol).Value = wsSource.Range("C10").Value
    
    '保存并关闭目标工作簿
    wbTarget.Save
    wbTarget.Close
    
    '恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    '释放对象变量，避免内存占用
    Set wsTarget = Nothing
    Set wbTarget = Nothing
    Set wsSource = Nothing
    Set wbSource = Nothing
End Sub

重点说明 #

1. Option Explicit：强制所有变量必须声明，能帮新手避开大量因变量名拼写错误导致的隐性Bug，建议所有VBA代码都加上。
2. 对象明确化：所有工作表、工作簿都用变量精准指向，彻底避免混淆当前工作簿和目标工作簿。
3. 最后空白列判断：提供两种适配场景的写法，根据你的实际表格结构选择即可。
4. 收尾操作：保存关闭目标工作簿、恢复Excel设置、释放对象，保证代码运行后Excel状态正常。

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