VBA数组转置列丢失
我手动调换大型数组从logging集（.transpose不起作用），但第一列丢失。 谁能告诉我我哪里错了
Dim FinalArr As Variant ReDim FinalArr(1 To UBound(ArrRs1, 2), 1 To UBound(ArrRs1, 1)) For i = 1 To UBound(ArrRs1, 2) For j = 1 To UBound(ArrRs1, 1) FinalArr(i, j) = ArrRs1(j, i) Next Next 该数组的下限为0。
Dim PasteArray As Variant ReDim PasteArray(1 To UBound(ArrRs1, 2), 0 To UBound(ArrRs1, 1)) For i = 1 To UBound(ArrRs1, 2) For j = 0 To UBound(ArrRs1, 1) PasteArray(i, j) = ArrRs1(j, i) Next Next