|
▼トキノハジメ さん:
i でループですか、、、cells(x,y)でもいいかと
range("A" & i)= Worksheets(ShtName1).Range("X" & i).Value
Worksheets(ShtName1)はwith〜end withを使うとかすると省略可能ですね。
>
>ShtName え ShtName1 より転記
>
>Range("A1").Value = Worksheets(ShtName1).Range("X1").Value
>Range("A2").Value = Worksheets(ShtName1).Range("X2").Value
>Range("A3").Value = Worksheets(ShtName1).Range("X3").Value
>Range("A4").Value = Worksheets(ShtName1).Range("X4").Value
>↓
>↓
>↓
>↓
>↓
>Range("A10").Value = Worksheets(ShtName1).Range("X10").Value
>
>上記のコードを For〜Next 出来るのでしょうか
>何か良い方法が有れば教えてください。
>よろしくお願いいたします。
|
|