Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13442 / 76732 ←次へ | 前へ→

【68795】Re:連続したデータの転記
発言  SK63  - 11/4/18(月) 14:01 -

引用なし
パスワード
   ▼トキノハジメ さん:
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 出来るのでしょうか
>何か良い方法が有れば教えてください。
>よろしくお願いいたします。

0 hits

【68793】連続したデータの転記 トキノハジメ 11/4/18(月) 13:42 質問
【68795】Re:連続したデータの転記 SK63 11/4/18(月) 14:01 発言
【68796】Re:連続したデータの転記 SK63 11/4/18(月) 14:04 発言
【68797】Re:連続したデータの転記 トキノハジメ 11/4/18(月) 18:21 質問
【68798】Re:連続したデータの転記 neptune 11/4/18(月) 18:28 発言
【68799】Re:連続したデータの転記 SK63 11/4/18(月) 18:31 発言
【68801】Re:連続したデータの転記 トキノハジメ 11/4/18(月) 21:07 お礼
【68802】Re:連続したデータの転記 SK63 11/4/18(月) 21:24 発言
【68803】Re:連続したデータの転記 トキノハジメ 11/4/18(月) 22:35 お礼
【68804】Re:連続したデータの転記 SK63 11/4/19(火) 0:09 お礼

13442 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free