エクセルでデータ変換

質問

エクセルで次の データ形式Ａ から データ形式Ｂ へ変換したいのですが
どのようなマクロを書けば、実現できるでしょうか。
実現できればいいので、マクロでもツールでもＯＫです。

■データ形式Ａ
ジャンル１ 項目１ 項目２ 項目３
ジャンル２ 項目１
ジャンル３ 項目１ 項目２

■データ形式Ｂ
ジャンル１ 項目１
ジャンル１ 項目２
ジャンル１ 項目３
ジャンル２ 項目１
ジャンル３ 項目１
ジャンル３ 項目２

よろしくお願いいたします。

回答No.2

hige_082 · ベストアンサー

マクロの質問なら、表、出力先のシートや位置（行列）などの情報がないと回答しにくい

行、列の繰り返し処理が簡単
行方向に１行目、２行目・・・ｈ行目と処理を進めていき
列方向は２列目、３列目・・・ｖ列目と処理を進めていく
これを合わせた処理をすればよい

１行目の２列目にデータがあるか、あれば出力、無ければ次
１行目の３列目にデータがあるか、あれば出力、無ければ次
１行目の４列目にデータがあるか、あれば出力、無ければ次
　　　　：
　　　　：
１行目のｖ列目にデータがあるか、あれば出力、無ければ次
２行目の２列目にデータがあるか、あれば出力、無ければ次
２行目の３列目にデータがあるか、あれば出力、無ければ次
　　　　：
　　　　：
ｈ行目のｖ列目にデータがあるか、あれば出力、無ければおわり

サンプルとしてA1を基準に表があり、F1を基準にして出力するとする
表は３行×４列、したがって処理行数は３、処理列数は４とします

変数
h：処理行
v：処理列
i：出力先の処理行

i=1
for h=1 to 3
for v=2 to 4
if cells(h,v).value<>"" then
cells(i,6).value=cells(h,1).value
cells(i,7).value=cells(h,v).value
i=i+1
end if
next v
next h

こんな感じでしょうかね

お礼

すばらしい！！！
できました。
ありがとうございます！

参考までにまとめた関数↓
Sub 変換()

'h: 処理行
'v: 処理列
'i: 出力先の処理行

i = 1
For h = 1 To 3
For v = 2 To 4
If Cells(h, v).Value <> "" Then
Cells(i, 6).Value = Cells(h, 1).Value
Cells(i, 7).Value = Cells(h, v).Value
i = i + 1
End If
Next v
Next h

End Sub

回答No.1

yyr446

特に難しい部分はありません。
初心者でも簡単に作れるVBAマクロです。
まず、勉強しましょう。質問はその後です。
参考サイトをあげておきます
http://www.happy2-island.com/excelsmile/
http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv201.html

補足

> まず、勉強しましょう。質問はその後です。
回答ありがとうございます。しかし、見当はずれの回答です。ごめんなさい。
マクロが得意な方からのロジックを参考にしただけです。