小编dut*_*lla的帖子

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

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

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)