|
▼ichinose さん:
早速ありがとうございます。
>Sub test()
> Dim buf1 As Variant
> buf1 = Worksheets("Sheet1").Range("C1:C3").Value
> Worksheets("Sheet1").Range("B1").Resize(UBound(buf1)).Value = buf1
>End Sub
>
>ということでしょうか?
貼り付けミスです。その通りです。
>でもこの時のBuf1に作成される配列は、Buf1(1 to 3,1 to 1)
> こんな形の2次元配列が作成されます。
この場合1次配列Buf1(1 to 3)ですると エラーが出ます
1次配列ではできないのですか?必然的に2次配列になる?
> Worksheets("Sheet1").Range("A1").Resize(UBound(buf)).Value = _
> Application.Transpose(buf())
>
>としてみてください。
上記のように変更しバッチリ動作しました。
もう少し1次2次の配列勉強してみます。
ありがとうございます。
|
|