Ｒａｎｇｅ コピーの エラーについて

質問

極めて基本的な質問で恐縮します。
下記コードの箇所でコードが黄色になってエラーメッセージ
がだされました。

Sheets("Sheet12").Range("A1:B" & (Zn2 * Xn2 - Zn1 * Xn2)) _
= Sheets("Sheet9").Range("B" & (Zn1 * Xn2) & ":C " & (Zn2 * Xn2))

単純にシート９のレンジ範囲を読み取ってシート１２にコピーする
コードです。デバッグを走らせて
Zn2=18
Xn2=56
Zn1=12
各変数が上記式が黄色になっているときにマウスをあてて読み取った
数値です。この変数が読み取れるということは、エラーがこの構文
にあることを示しているのですが、原因がわかりません。
ちなみにエラーコードは実行時エラー１００４です。

Sheet12 はシート全体が空白のまま。
Sheet9 はB,C列に数値が３行目から始まって１７７２行目まで数値が
格納されています。

どなたかご指摘お願いします

回答No.1

Wendy02 · ベストアンサー

こんにちは。

極めて単純なミスだと思います。

>Range("B" & (Zn1 * Xn2) & ":C " & (Zn2 * Xn2))

":C "
　↓
":C" ←スペースが入っています。

ただ、Range オブジェクトの中で計算する方法は、ミスの基です。
変数として外に出して、計算してから、代入してください。

また、配列で、コピーする方法の場合、そういう書き方はややこしいです。Copy & Paste または、PasteSpecial で行ったほうが確実だと思います。

お礼

ご指摘ありがとうございました。おかげさまで動きました。
アドバイスにも感謝します。

回答No.2

Nayuta_X

下記式で、
Sheets("Sheet12").Range("A1:B" & (Zn2 * Xn2 - Zn1 * Xn2))

Zn2 * Xn2 - Zn1 * Xn2　に　
Zn2=18
Xn2=56
Zn1=12を代入すると

-2128=18*56-56*56
になります。
こんな　セルは、ないですよね。
だから　エラーになります。
式を再検討ですね。

お礼

アドバイスありがとうございます。
＃１さんのご指摘で動きました。(^^;)