在 VBA 中创建和转置数组

Question

我希望将某个范围内的值加载到数组并将该数组转置到另一个位置（不同的工作簿）

我正在使用下面的论坛帖子来了解如何做到这一点：

http://www.mrexcel.com/forum/excel-questions/629320-application-transpose-visual-basic-applications-array.html

下面是我现在正在使用的代码，我收到了 1004 对象定义错误。谁能发现我做错了什么？

我确实发现如果我不设置 tRangeArray 而是执行Sheets("sheet1").Range("C12:C19).Value = Application.Transpose(MyArray)，则代码有效，但我不确定为什么这与我的代码不同。

Sub copy_data()
Dim cRange As Range, aRange As Range, tRange1 As Range, wbk1 As Workbook, wbk2 As
Workbook
Dim MyArray() As Variant, tRangeArray As Range

Set wbk1 = ThisWorkbook

MyArray = Range("E12:L12")
Set tRangeArray = wbk1.Sheets("sheet1").Range("C12:C19")

Sheets("sheet1").Range(tRangeArray).Value = Application.Transpose(MyArray)

Answer 1

正如我在评论中提到的，只需使用：

tRangeArray.Value = Application.Transpose(MyArray)

Sheets("sheet1").Range(tRangeArray).Value不起作用，因为Range接受单个参数 - 带有范围地址的字符串（不是范围本身）Range(addr)：，或者两个参数 - 左上角和右下角单元格：Range(cell_1,cell_2)