|
>難点1:Dimの変数定義は分からない。
変数のデータ型は Variant にすべきでしょう。
具体例は以下コード。
>難点2:以下の計算仕組みとして、1.〜4.以外の方法は
> ありますか?
通常次のようなコードになると思います。
Sub Sample1()
Dim rg1 As Range, rg2 As Range, xx&, yy&
Dim d1 As Variant, d2 As Variant
Set rg1 = Range("b3:d7") 'データのレンジ指定
Set rg2 = Range("b8:d8") '答えのレンジ指定
'1.配列の各成分定義
d1 = rg1
'2.=合計値をゼロにセットする
rg2.ClearContents
d2 = rg2 '配列へセル値を代入
'3.=各列の和を計算代入
For yy = 1 To UBound(d1) '行のループ
For xx = 1 To UBound(d1, 2) '列のループ
d2(1, xx) = d2(1, xx) + d1(yy, xx)
Next
Next
'4.=最後、各列の和表示
rg2 = d2 '配列からセルへ書戻し
End Sub
こちらを参考にしました。
ht tp://www2.aqua-r.tepm.jp/~kmado/kvba.htm
E95M007 シートのセルに変数2次元配列で高速にアクセスする
|
|