| |
転記したい場合のコードの記入方法を教えてください。
VBA初心者です。エクセル2003を使用しています。
今会社で本を見ながらVBAのコードを記載しているのですが、
なかなかうまくいきません。
単純に転記のコードを書いてみましたが、下記のようですと動きますが効率も悪いし見栄えもよくないです。
また、今後データが増えた時に対応出来ないように思います。
転記の記入など基本的なことだと思いますが、
教えていただけませんでしょうか？
ちなみに、コピペですと表の行が結合されているので出来ないので、
転記という形にしたいです。
やりたいこと
1.表シートのＣ列にシート２のＡ列を転記。
Ｃ列は上にタイトルなど含めて４行記載しない部分があるので、Ｃ５セルから始まっています。
表はＣ５とＣ６の２行が結合し、Ｃ７とＣ８が結合というように２行づつ結合しています。
データシートのＡ列は一行タイトル行が入っています。A2から連続してデータが入ってA46まで入っています。
最終行はとりあえず、データシートのＡ46セルを表のＣ93へ転記ですが、データ範囲が変わるかもしれないので対応出来るようなコードにしたいです。
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")
|
|
yui
- 12/8/27(月) 21:59 -
