|
転記したい場合のコードの記入方法を教えてください。
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")
|
|