エクセルVBAでレイアウトを変えて表作成

質問

こんにちは。

お世話になります。

エクセルの表をレイアウトを変えてcsv出力したいと考えています。

「これを大きく二つに分けると既存の表を別レイアウトの表にし直す」
＋
「エクセルの表をcsv出力する」

になり、後者はどうもやり方が見つけられそうですので今回は割愛します。

表のレイアウト変更について、以下に例示します。

【既存の表】
A　　　　　　　　　　　B　　　　　C　　　　　D　　　　　E　　　　　F
アイテム名 カラー　　100cm 120cm 150cm 200cm
アイテムA 赤 1
アイテムA 青 3 2 1 0
アイテムB 白 4 5
アイテムC 2

【レイアウト変更した表】
アイテムA 赤 120cm 1
アイテムA 青 100cm 3
アイテムA 青 120cm 2
アイテムA 青 150cm 1
アイテムA 青 200cm 0
アイテムB 白 150cm 4
アイテムB 白 200cm 5
アイテムC 100cm 2

現在、既存の表の対象範囲をCells(j,i)でjとiをLOOPさせて
空白行でなかったら…というIF分岐まで作りました。

残すは

空白ではない値に出会ったら、
その行のA列の値＋B列の値＋その列の1行目(サイズタイトルセル)の値＋空白でない値(在庫数)
を１レコードとして任意の場所にセット
改行してまた進めていく

です。

そこまでできたら、csvデータ出力の方法をググり再開しようと思っています。

Cells関数を使えば上記の各値を取得することはできそうですが、それをどうやって保持する？か、
どうやって任意の場所に貼り付けるか、のあたりがわかっていません。

VBAデビュー後間もないのでできるだけ簡易で具体的なアドバイスをお願いいたします。

回答No.1

keithin · ベストアンサー

＞簡易で具体的

「具体的に」は表はＡ１を左上として２行目からデータ、Ｃ列から１００ｃｍが始まっているとする
「具体的に」は表の中身は「数字を手入力」していて、数式とかで表示してるんじゃないとする
「具体的に」はＣＳＶファイルの保存先は「c:\test\」フォルダの中、ファイル名は「test.csv」とする

sub macro1()
　dim h as range
　dim buf as string

　open "c:\test\test.csv" for output as #1

　for each h in range("C2:F5")
　　if h <> "" then
　　　buf = cells(h.row, "A") & ","
　　　buf = buf & cells(h.row, "B") & ","
　　　buf = buf & cells(1, h.column) & ","
　　　buf = buf & h.value
　　　print #1, buf
　　end if
　next

　close #1
end sub

お礼

早速のご回答ありがとうございました。

あらかじめ新規作成して開いておいたcsvファイルに

「空白ではない値に出会ったら、
その行のA列の値＋B列の値＋その列の1行目(サイズタイトルセル)の値＋空白でない値(在庫数)
を１レコードとして任意の場所にセット
改行してまた進めていく」

をすごくシンプルに１つの変数にセットしては
出力し、を繰り返しているんですね。

手順を二つに分ける必要もなくすぐに目的が
達成できました。

ご親切にどうもありがとうございました。

補足

「具体的に」アドバイスを求めるのなら
もっと「具体的に」要望を記述するようにとの
痛快な無言のアドバイスが含まれていたりしますか？
(；´Д`A ```

だとしたら次に活かします。

とにかく、大変助かりました！m(_ _)m