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

質問

(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.2

noname#123709 · ベストアンサー

最初のエラーのところですが、以下で大丈夫だとおもいます。
Rows(tx1 & ":" & tx2 - 1).Copy Destination:=Sheets("1").Rows("1:1")

お礼

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

補足

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

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

回答No.1

hana-hana3

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
に変更して実行してみましたが、やはりエラーが出てしまいます。