arrays - 在 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)