EXCEL VBA 複数列を2列にまとめる

下記のようなデータ（列数も行数も常に変わり、固定ではない）を

┌─────────────────
│ A 列 　|　B列　　　|　C列　 　| D列
├───────────────────
│ 1 │伝票01 │品名01 | 品名02 │品名03
├───────────────────
｜ 2 │００１１ │みかん　│みかん | りんご
├───────────────────
│ 3 │１００１ │りんご　 │いちご | 　　
├───────────────────
│ 4 │１１００ │いちご　 │みかん | ぶどう　
└───────────────────

↓のように2列にまとめる方法はございますでしょうか？VBAを希望しております。
　　よろしくお願い申し上げます。

┌─────────────────
│ A │ B 　
├─────────────────
│ 1 │伝票　 │品名
├─────────────────
│ 2 │００１１_品名01 │みかん　
├─────────────────
│ 3 │１００１_品名01 │りんご　 　
├─────────────────
│ 4 │１１００_品名01 │いちご
├─────────────────
│ 5 │１００１_品名02 │みかん　
├─────────────────
│ 6 │１１００_品名02 │いちご　
├─────────────────
│ 7 │１００１_品名02 │みかん　
├─────────────────
│ 8 │１１００_品名03 │りんご　
├─────────────────
│ 9 │１００１_品名03 │　
├─────────────────
│ 0 │１００１_品名03 │ぶどう　
├─────────────────

No.2 ベストアンサー 回答者： keithin 回答日時： 2011/11/01 09:58

作成例：

sub macro1()
　dim h as range
　dim Target as range
　dim n as long
　dim w as worksheet

’準備
　set w = activesheet
　set target = w.range("A1").currentregion.offset(1,1)
　worksheets.add after:=activesheet
　range("A1:B1") = array("伝票","品目")
　n = 1

’転記
　for each h in target
　if h <> "" then
　　n = n + 1
　　cells(n, "A") = w.cells(h.row,1).text & "," & w.cells(1, h.column).value
　　cells(n, "B") = h.value
　end if
　next
end sub

この回答へのお礼

keithin 様

下手な質問文だったと思いますが、お察しいただき恐縮です。
おかげさまで、やりたいことができました。
また早々のご回答をいただき大変助かりました、誠にありがとうございました。

お礼日時：2011/11/01 13:15

No.3 回答者： mu2011 回答日時： 2011/11/01 10:22

>2列にまとめる方法はございますでしょうか？VBAを希望しております。

　⇒期待値として５行目以降の平仄が合っていないのではないでしょうか。
　　ＶＢＡの知識がないのであれば丸投げ質問は、回答後に変更が発生したら対応が
　　とれないので、ＶＢＡを学習してから質問した方が良いと思う。

　　因みに２列の統合ですが以下の様な構成もありと思いますが如何でしょうか。
　　　伝票１＿品名１／品名１
　　　伝票１＿品名２／品名２
　　　伝票１＿品名３／品名３
　　　伝票２＿品名１／品名１
　　　伝票２＿品名２／品名２
　　　　～
　　　（空白は対象外）
　　　伝票ｎ＿品名ｍ／品名ｍ

　コード例ですが、２つのループ処理でデータの転記が可能です。
　　For　行 = 2　To　列最終行
　　　For　列 = 2　Ｔｏ　行最終列
　　　　データ転記
　　　NEXT　列
　　Next　行

この回答へのお礼

mu2011 様

ご指摘ありがとうございます。
自分ができる範囲で作ったコードを載せた方が良かったですね！すみません。
また、ご提案もありがとうございます、参考にさせていただきます。

お礼日時：2011/11/01 13:10

No.1 回答者： imogasi 回答日時： 2011/11/01 09:34

品名の数が各行で一定数なら、エクセル関数の組み合わせで、できると思う。

しかし不定個数のようだから、関数では複雑になる。質問者は何処まで勉強して考えてやってみたのか。
ーー
VBAでやれば素直な問題なので、書いておく。
こういう風に、データの組み換えなどしたくなったら、VBAは必須だというのが私の持論。
例データ　A1:D４　　
伝票01品名01品名02品名03
0011みかんみかんりんご
1001りんごいちご
1100いちごみかんぶどう
（注）質問に丁寧に縦棒横棒で書いているが、こういう書き方（シートのセル範囲のコピペ）で、質問者に判るのでは
結果
J２：K9
0011品名01みかん
0011品名02みかん
0011品名03りんご
1001品名01りんご
1001品名02いちご
1100品名01いちご
1100品名02みかん
1100品名03ぶどう
ーー
コードは
標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
k = 2
For i = 2 To d
r = Cells(i, "I").End(xlToLeft).Column
For j = 2 To r
Cells(k, 10) = Cells(i, "A") & Cells(1, j)
Cells(k, 11) = Cells(i, j)
k = k + 1
Next j
Next i
End Sub
（注意）
同じシートのJ列から結果を出している。従って元データはI列までと仮定。そうでない場合１部手直しが必要。
他シートに結果を出すのは一部手直しが必要。
（VBAの回等が、質問者の意に沿うかどうか判らないので手抜き。）

この回答へのお礼

imogashi様

for~next のネストはまだまだ組み立てるのが苦手なので大変勉強になりました。
丁寧なご回答いただき、ありがとうございました。

お礼日時：2011/11/01 13:03