excel - 将多个数组分配给 Excel 范围

Question

只是出于好奇，我问你一个问题，如下所示：

假设我确实有一个数组 A1(6)=(45,25,,36,88),A2(6)=(14,25,11),A3(6)=(11,21,20,25,48 ）。现在我们可以借助单个语句（例如将单个数组赋值给一行）来放置这些数组值，就像这里的所有行到 Excel 的一个范围一样，在这里说“C1：R3”范围。

编辑

如果我需要将它们分配给 R1<- A1 + A2 +A3,R2<- A1 + A2 +A3 之类的行。你能告诉我怎么做吗？

R1<- (45,25,,36,88),14,25,11,,,,11,21,20,25,48,) 与 R2 相同。

谢谢，

score 2 · Accepted Answer

    Dim A(2,5)
    For i = 0 to 5
        A(0, i) = A1(i)
        A(1, i) = A2(i)
        A(2, i) = A3(i)
    Next i
    Range("C1:R3").Value = A

编辑

对于第二部分，据我所知：

    Dim R(17)
    For i = 0 To 2
        For j = 0 To 5
            R(6 * i + j) = A(i, j)
        Next j
    Next i
    Range("C5:T5").Value = R

编辑 2

或者：

    Dim R
    R = Split(Join(A1, ",") & "," & Join(A2, ",") & "," & Join(A3, ","), ",")
    Range("C5:T5").Value = R

您可以使用任何您喜欢的分隔符（如果它适合您的数据）。

1 回答 1