Excel VBA質問箱 IV

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

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


9698 / 76736 ←次へ | 前へ→

【72597】転記のコード
質問  yui  - 12/8/27(月) 21:59 -

引用なし
パスワード
   転記したい場合のコードの記入方法を教えてください。

VBA初心者です。エクセル2003を使用しています。
今会社で本を見ながらVBAのコードを記載しているのですが、
なかなかうまくいきません。
単純に転記のコードを書いてみましたが、下記のようですと動きますが効率も悪いし見栄えもよくないです。
また、今後データが増えた時に対応出来ないように思います。

転記の記入など基本的なことだと思いますが、
教えていただけませんでしょうか?
ちなみに、コピペですと表の行が結合されているので出来ないので、
転記という形にしたいです。

やりたいこと
1.表シートのC列にシート2のA列を転記。
C列は上にタイトルなど含めて4行記載しない部分があるので、C5セルから始まっています。
表はC5とC6の2行が結合し、C7とC8が結合というように2行づつ結合しています。
データシートのA列は一行タイトル行が入っています。A2から連続してデータが入ってA46まで入っています。
最終行はとりあえず、データシートのA46セルを表のC93へ転記ですが、データ範囲が変わるかもしれないので対応出来るようなコードにしたいです。

2.上記のデータシートはA列以外もB列からAF列までデータが入っています。
そのデータを表シートのO列からAI列へ順に転記したいのです。
こちらも上記と同様、表シートは2行ごとに結合されています。

これら1.、2.をデータシートが入っている最終行まで転記できるようにするには、どうやってコードを記載したらいいでしょうか?
長々とコードを書きましたが、これではダメだと思い助けて頂きたいです。

宜しくお願い致します。


記載しているコード
1.worksheets("表").Range("C5").Value=worksheets("データー").Range("A2")
 worksheets("表").Range("C7").Value=worksheets("データー").Range("A3")
 worksheets("表").Range("C9").Value=worksheets("データー").Range("A4")
以下続く
 worksheets("表").Range("C91").Value=worksheets("データー").Range("A45")
 worksheets("表").Range("C93").Value=worksheets("データー").Range("A46")

2.worksheets("表").Range("O5:AI5").Value=worksheets("データー").Range("B2:AF2")
 worksheets("表").Range("O7:AI7").Value=worksheets("データー").Range("B3:AF3")
 worksheets("表").Range("O9:AI9").Value=worksheets("データー").Range("B4:AF4")
以下続く
 worksheets("表").Range("O91:AI91").Value=worksheets("データー").Range("B45:AF45")
 worksheets("表").Range("O93:AI93").Value=worksheets("データー").Range("B46:AF46")
0 hits

【72597】転記のコード yui 12/8/27(月) 21:59 質問
【72604】Re:転記のコード ドカ 12/8/28(火) 10:11 回答
【72616】Re:転記のコード yui 12/8/28(火) 22:17 お礼
【72615】Re:転記のコード ichinose 12/8/28(火) 21:49 発言
【72617】Re:転記のコード yui 12/8/28(火) 22:35 お礼

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