Ｅｘｃｅｌ：値のある行だけをｃｓｖ保存したい

質問

エクセル（2003、2007）でｃｓｖデータで保存をするマクロを作る際、
「式」ではなく、「値」がある行だけ書き出したいと考えております。

例えば図のようにｓｈｅｅｔ１に表があり、それを元にｓｈｅｅｔ２に
データを転記する場合、ｓｈｅｅｔ２にはそれぞれ転記する為の「式」
が入る事になると思います。
【=IF(Sheet1!A10="","",Sheet1!A10)】など

このままマクロでｃｓｖとして吐き出した場合、「式」が入っている行が
全て書き出されてしまうのですが、あくまで「値」が入っている行だけ
ｃｓｖとして抜き出したいです。

※なお、csv書きだし自体は以下のサイトを利用させて頂いております。
　　ttp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_050.html

お手数ですが何か手法があれば、ご教授頂けると助かります。

宜しくお願い致します。

回答No.1

tsubuyuki · ベストアンサー

ご提示のリンク先のコードを活かすなら

　　　　Do Until GYO > GYOMAX
　　　　　　　　If Cells(GYO, 1).Value <> "" Then
　　　　　　　　　　　　（中略）
　　　　　　　　　　 Write #intFF, X(1), X(2), X(3), X(4), X(5) ' (3)
　　　　　　　　End If
　　　　　　　　' 行を加算
　　　　　　　　GYO = GYO + 1
　　　　Loop

としてやると、Ａ列が空白の行に関しては無視して処理を進めます。

お礼

ありがとうございます！
無事に書き出せました。

ご教授頂き、感謝致します。