VBAによる計算結果コピーについて

Question

エクセルAから数字を抜き出して、それらを足し算して
エクセルBの指定セルに貼り付けたいのですが、

Dim x(3) As Variant
Dim y(3) As Variant
Dim z(3) As Variant

x(1) =  Workbooks(A).Sheets("Sheet1").Cells(4, 11)
x(2) =  Workbooks(A).Sheets("Sheet1").Cells(20, 11)

y(1) = x(1) +x(2)

z(1) = Workbooks(B).Sheets("Sheet1").Cells(5, 6)

y(1).Copy(z(1))

としたら
最後のコピーのところで
エラー424 オブジェクトが必要です
とエラーになりました。
y(1)まではOKのことを確認できました。
ご教授よろしくお願いします。

Answer 1

前回の質問、VBAによる配列足し算でjawaさんが提示されておられるコードじゃ駄目なんですか？

もしループで行うにしても同じレイアウトの表なので、相対的な処理で考えた方が良さそうですけど。

Dim Target As Variant
Dim MyPaste As Range
Dim MyRow, MyColumn
For Each Target In Worksheets("Sheet1").Range("k5:T19")
MyPaste(Target.Row
next

みたいな。

Answer 2

Variant型は魔法の箱ではありません。
代入した値の型の認識があいまいだと見受けられます。
Cells(4, 11)の値とCells(20, 11)の値の合計値をCells(5, 6)に入れるのなら下記のような書き方があります。

Dim x(3) As Variant
Dim y(3) As Variant
Dim z(3) As Variant

x(1) =  Workbooks(A).Sheets("Sheet1").Cells(4, 11)
x(2) =  Workbooks(A).Sheets("Sheet1").Cells(20, 11)

y(1) = x(1) +x(2)

**Set z(1) = Workbooks(B).Sheets("Sheet1").Cells(5, 6)**

**z(1).Value = y(1)**

また、用途がはっきりとしているのなら各変数の型宣言を適切に行うことをお勧めします。

Comments

[rvsezuki]

いけました
ありがとうございました。