エクセルで指定した行範囲を別のシートにコピーするには？

(1)指定した行（数値）を変数として登録する方法
tx1 = Sheets("0").Range("A1")
tx2 = Sheets("0").Range("A2")
tx3 = Sheets("0").Range("A3")

A1＝2
A2＝2000
A3＝2500

(2)(1)で指定した変数を使用して行範囲を他のシートSheets(”1”)、Sheets("2”)にコピーペースト。


行（”2：1999”）　←tx1 : tx2-1(A2の数値から1を引いた数値)

Rows(▲▲▲▲▲▲).Select
Selection.Copy
Sheets("1").Select
Rows("1:1").Select
ActiveSheet.Paste

行（”2000：2499”）　←tx2 : tx3-1(A3の数値から1を引いた数値)

Range(▲▲▲▲▲▲).Select
Selection.Copy
Sheets("2").Select
Rows("1:1").Select
ActiveSheet.Paste

▲部分がエラーになってしまい、うまくいきません。
正しい方法を教えてください。

No.1 回答者： hana-hana3 回答日時： 2006/03/15 15:01

Rows(A1 & ":" & A2 - (A1 - 1)).Select

この回答への補足

A1＝2
A2＝2000
A3＝2500
のA1というのはセルの場所です。
数値は変動します。
A2 - (A1 - 1)の部分の意味がよくわからないのですが、
Rows(A1 & ":" & A2 - (A1 - 1)).Select
A1→変数tx1
A2→変数tx2
に変更して実行してみましたが、やはりエラーが出てしまいます。

補足日時：2006/03/15 15:55

この回答へのお礼

ありがとうございました。
正常に動作することができました。
少し難しく考えすぎていました。

お礼日時：2006/03/15 16:01

No.2 ベストアンサー 回答者： noname#123709 回答日時： 2006/03/15 15:02

最初のエラーのところですが、以下で大丈夫だとおもいます。

Rows(tx1 & ":" & tx2 - 1).Copy Destination:=Sheets("1").Rows("1:1")

この回答への補足

すいません。
「実行エラー13」型が一致しません。
というメッセージが出てしまいます。

申し訳ありません。
質問の仕方が悪いのでしょうか。

補足日時：2006/03/15 15:23

この回答へのお礼

申し訳ありません。
正常に動作いたしました。
ありがとうございました。

お礼日時：2006/03/15 16:00