EXCELのマクロについて

シート名が数字のみ（単に”１”、”２”、”３”・・・”１０”）の場合、
シート名を変数で指定した ”繰返し文のマクロ” を教えて下さい。

①シート名”２”のセルA1を、シート名”１”のセルA２1へコピー
②シート名”３”のセルA1を、シート名”１”のセルA３1へコピー
・
・
㉕シート名”１０”のセルA1を、シート名”１”のセルA101へコピー
（シート名の数字は１ずつカウントアップ）（セルは10行ずつ下へコピー）

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2019/08/03 12:36

Dim Cnt1 As Long

Dim シート名 As String
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet

Set Sh1 = Worksheets("1")

For Cnt1 = 2 To 10
シート名 = Cnt1
Set Sh2 = Worksheets(シート名)

Sh1.Range("A" & Cnt1 * 10 + 1).Value = Sh2.Range("A1").Value

Next Cnt1

この回答へのお礼

出来ました。
数字のみのシート名の指定方法がわからなくて困っていましたので、大変助かりました。
素早く的確な回答をいただきありがとうございました。

お礼日時：2019/08/03 13:47

No.2 回答者： trajaa 回答日時： 2019/08/03 13:04

普通に

for-----each文を使うべき