Excelでcsv形式で保存するとき

質問

どうしてもわからないので教えてください。

Excelで、下記のように行によってデータの数が
違うデータをcsvに変換すると、

111　222　333　444　555
666　777

　　　↓
111,222,333,444,555
666,777,,,

と2行目に余計なカンマがついてしまいます。
これを、

111,222,333,444,555
666,777

というように余計なカンマがつかないように
csvで保存する方法はありますか？

よろしくお願いします。

回答No.3

imogasi · ベストアンサー

短いプログラムで可能のようです。
Sub test01()
Open "c:\My Documents\aaa15.csv" For Output As #1
d = Range("A65536").End(xlUp).Row
'MsgBox d
For i = 1 To d
c = Cells(i, 255).End(xlToLeft).Column
'MsgBox c
If Cells(i, 1) = "" Then
s = ","
Else
s = Cells(i, 1)
End If
For j = 2 To c
s = s & "," & Cells(i, j)
Next j
' MsgBox s
Print #1, s
Next i
Close #1
End Sub
Ｏｐｅｎ文のパス名・ファイル名は適当に変えてください。
上記コードを、ツール－マクロ－ＶＢＥ－（メニューの）挿入－標準モジュールをクリックして、出てくるコードウインドウに貼りつけて、実行。
少数例でテスト済みですが、更にテストした上でお願いします。

お礼

ご回答ありがとうございます！ＶＢＡを作ろうと思っていたので、これで試してみようと思います。

回答No.2

palmmy

#1さんのようにメモ帳で編集するか、TEXTファイルを書き出すVBAを作成するかしかないと思います。

お礼

ご回答ありがとうございます。ＶＢＡで何とか対処してみます。

回答No.1

Tsukasa0215

結論から…ありません。

どうしても消したければ、メモ帳などのテキストエディターの手作業で削除でしょうね。
ただ…ここで消したとしても、再度Excelで保存すると付いてきますよ。

お礼

ご回答ありがとうございました。膨大な量なので手作業は無理そうです・・・。