Excel 2010 VBAで教えてください。

質問

Excel 2010 VBAで教えてください。

Doubleの配列　Dim A(100) as double に ワークシート "Sheet1" セル　A1:A100　の値を一発（For loop等を利用しない）　で読み込むにはどうすればよいのでしょうか。

同じく、　Doubleの配列　A(100)を ワークシート "Sheet2" セル　B1:B100　に一発で書き出すのはどうすればよいのでしょうか。　

Variantにて　Dim A as Variant では　　A = Sheets("Sheet1").Range("A1:A100") で　読み込めました。 また　Sheets("Sheet2").Range("B1:B100")で書き込みできましたが、double等でどうすれば良いのか知りたいです。

回答No.1

chie65535 · ベストアンサー

＞Doubleの配列　Dim A(100) as double に ワークシート "Sheet1" セル　A1:A100　の値を一発（For loop等を利用しない）　で読み込むにはどうすればよいのでしょうか。

できません。

これが出来るのは、Variant型の配列に取り込む場合だけです。

これは「受け側は、Variant型の配列でなければならない」という「お約束」があるからです。

＞同じく、　Doubleの配列　A(100)を ワークシート "Sheet2" セル　B1:B100　に一発で書き出すのはどうすればよいのでしょうか。　

「Option Base 1」に設定されている場合「A(100)」と言う配列は「１行１００列」ですから「B1:B100」と言う「１００行１列」の範囲に、そのまま書き込む事は出来ません。

Range("B1:B100") = A

を実行すると、A(1)の値が、B1～B100に埋められます（B1～B100が全部同じ値になる）

この場合は、配列を

dim A(100,1) as Double

などのように「１００行１列」で宣言するか、行と列を入れ替える関数を用いて

Range("B1:B100") = WorksheetFunction.Transpose(A)

などのように、行と列を入れ替えて代入します。

なお「配列変数の値をセルに書き込む」のは、Variant型でも、Double型でも、どんな型でも出来ます。

これは「セルは、Variant型の配列と同じ扱い」になっていて「受け側は、Variant型の配列でなければならない」という「お約束」に従っているから可能なのです。

しかし、セルの値をDoubleの変数に読み込むのは「受け側は、Variant型の配列でなければならない」という「お約束」に違反しているので、出来ないのです。

例えば、以下のプログラム

Dim a(10,10) As Double
Dim b As Variant
a(1,1) = 0.1
a(1,2) = 0.2
(略)
a(10,10) = 100.0
b = a

は、正しく実行できます。

この場合、bは「配列として宣言されてない」ですが、bに配列を代入すると「bは要素数が可変の動的配列」として扱われ、bは「Variant型の配列」になります。

すると「受け側は、Variant型の配列でなければならない」という「お約束」に従っている事になるので、実行できます。

しかし、以下のプログラムはエラーになります。

Dim a(10,10) As Double
Dim b As Variant
Dim c(10,10) As Double
a(1,1) = 0.1
a(1,2) = 0.2
(略)
a(10,10) = 100.0
b = a 'これは可能
c = b '「コンパイルエラー：配列には割り当てられません」が出る

これは「受け側は、Variant型の配列でなければならない」という「お約束」に従ってないのでエラーです。

同様に

Dim a(10,10) As Double
Dim c(10,10) As Double
a(1,1) = 0.1
a(1,2) = 0.2
(略)
a(10,10) = 100.0
c = a '「コンパイルエラー：配列には割り当てられません」が出る

と書いた場合も「受け側は、Variant型の配列でなければならない」という「お約束」に従ってないのでエラーです。

aとcは「同じ型で、要素数も同じ」ですから「一括で代入できそう」ですが、残念ながら「受け側は、Variant型の配列でなければならない」という「お約束」に背いているので、ダメなのです。