-2

好奇心から、以下のような質問をします。

配列 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 と同じ。

ありがとう、

4

1 に答える 1

2 
    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

編集

2番目の部分については、私の理解の範囲内で:

    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

任意の区切り記号を使用できます (データに適している場合)。

于 2012-12-22T22:18:08.937 に答える