VBA实现可变数组打印至其他工作簿动态单元格区域

我来帮你解决这个问题，你的代码里有两个关键问题导致它无法正常工作，咱们一步步来修正：

问题分析 #

1. 未指定Cells的父工作表：你的Set PasteCell语句中，Cells(bottomrow2 + 1,1)没有明确关联到ClientBook.Sheets("PasteSheet")，默认会引用当前活动工作表的单元格，这会导致对象引用错误。
2. Range对象拼接语法错误：Range(PasteCell & UBound(array))的写法完全错误——PasteCell是一个Range对象，不能直接和数值拼接成新的Range引用，应该用Resize方法来扩展区域范围。

修正后的完整代码 #

' 先明确目标工作表对象，避免引用混淆
Dim targetWs As Worksheet
Set targetWs = ClientBook.Sheets("PasteSheet")

' 获取目标工作表A列最后一行有数据的行号（用Rows.Count代替硬编码9999，适配所有Excel版本）
Dim lastRow As Long
lastRow = targetWs.Range("A" & targetWs.Rows.Count).End(xlUp).Row

' 确定粘贴的起始单元格：最后一行的下一行第1列（A列）
Dim startCell As Range
Set startCell = targetWs.Cells(lastRow + 1, 1)

' 计算要粘贴的区域：从起始单元格开始，行数匹配数组的上限，列数固定为14（A到N）
Dim pasteRange As Range
Set pasteRange = startCell.Resize(UBound(yourArray), 14) ' 把yourArray换成你的数组变量名

' 将数组赋值到目标区域
pasteRange.Value = yourArray

关键细节说明 #

• 指定父对象：所有涉及Range、Cells的操作都明确关联到targetWs，避免因活动工作表变化导致的引用错误。
• 灵活获取最后一行：用targetWs.Rows.Count代替硬编码的9999，可以适配不同版本Excel的行总数（比如Excel 2007+有1048576行）。
• Resize方法：通过Resize(行数, 列数)快速构建和数组大小匹配的目标区域，这是VBA中批量赋值数组的标准写法。

特殊情况处理 #

如果你的数组是一维数组（比如只有一行数据），需要转置后再赋值，否则会出现数据错位：

pasteRange.Value = Application.Transpose(yourArray)

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