Dataシートのデータを別シートへコピーするVBAを教えて下さい。

Question

EXCELで住所録を作成しています。

　「t_data」シートの1行目には"番号" "名前" "郵便番号" "住所"との項目を

ABCD列に入れています。

　2行目以降は実データの入力を行っています。必要に応じ、修正や並べ替えも

行っています。

　さて、上記データを「印刷」シートにコピーしたいのですが、体裁を整えるため、

　・A列とB列はそれぞれ2行を融合しています。

　・C列偶数行に郵便番号、奇数行に住所

　このようにコピーするにはどうしたら良いのかお教えください。

　なお、データ量がEXCELファイルごと違うので、印刷シートにはなるべく

計算式を入れない方法を望んでいます。

　まだまだVBAを把握しきれてない状態での質問ですが、よろしくお願いします。

Answer 1

やる気十分のようにお見受けしますのでもう少し具体的なヒントを出しておきます。

前提

Sheet1　には2行目から2行一組のデータが入っており、上段のA列と下段のC列にデータが入っている

これをSheet2の2行目から1行一組のA列、B列にコピーする

Sheet1のデータの末尾は自動的に判定する。

Sub aaa()

Dim I As Long, J As Long, wEndRow As Long

Dim wSht1 As Worksheet, wSht2 As Worksheet

Set wSht1 = Worksheets("Sheet1")

Set wSht2 = Worksheets("Sheet2")

wEndRow = wSht1.Cells(Application.Rows.Count, 1).End(xlUp).Row

For I = 2 To wEndRow Step 2

  J = I / 2 + 1

  wSht2.Cells(J, 1) = wSht1.Cells(I, 1)

  wSht2.Cells(J, 2) = wSht1.Cells(I + 1, 3)

Next

End Sub

やろうとなさっていることに合うのかどうか判然としませんが、参考まで。

Answer 2

三原　なぎさ、こんにちは。

ここでダメなときには活用させていただきます。

アドバイスありがとうございます。

Answer 3

y sakudaさん、こんにちは。

頂いたヒントを元に無い頭から知恵をしぼります。

とりあえずの動きができた時、またのご指南を仰ぐと思いますので、

その時にはお付き合いください。

よろしくお願いします。

Answer 4

同じ形にするならともかく、違う形にはコピー＆ペーストではできません。

（もし可能な形なら手動で同じことがコピー&ペーストできます。）

コピー＆ペーストではなく、ループを作り、セル毎ないしはレンジ毎に動かしてください。

その発想でご自分でやってみてうまく行かないならどのようなコードでやっておられるのか、提示してください。それを拝見してアドバイスします。

例えばSheet1のA1をSheet2のC2にセットする場合は

Worksheets("Sheet2").Cells(2,3)=Worksheets("Sheet1").Cells(1,1)

普通A1を操作する場合、Range("A１”）等の表記が多いはずですが、ループ構成にすることになりそうですのであえてCellsで例示しました。

Answer 5

元_加島 さん、こんにちは。

こちらの VBA に関するご質問だと、Answers ではなかなか情報が集まりにくいかもしれません。。。

もしよろしければ、MSDN フォーラム内に VBA 専用のフォーラムがありますので、こちらへ投稿いただくと、よりアドバイスが集まってくるのかなと思います。

Visual Basic for Application (VBA) フォーラム

ぜひ、ご活用いただければと思います。