Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60586 / 76732 ←次へ | 前へ→

【20784】Re:ワークシートの一枚をCSV形式で保存したい
質問  もろん  - 04/12/19(日) 21:47 -

引用なし
パスワード
   Hirofumi さん、回答ありがとうございました。
教えていただいたコードできちんと保存ができました。
そこで、もうひとつお尋ねしたいのですが、
sheet4にはデータとデータの間に空白の行があるので、
CSV形式で保存する際にその行を削除して詰めて保存(出力?)
したいのですが、そういうことは可能でしょうか?
自分なりに色々と試してみたのですがどうもうまくいきません…。

Sub 空白行を削除()
Dim myLastLow As Long
Dim i As Long
myLastLow = Range("A65536").End(xlUp).Row
For i = myLastLow To 1 Step -1
If Cells(i, 1).Value = "" Then   
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

↑こういうのを入れたらよいのかと思っているのですが
どこに入れたらよいのかわかりません。
お時間のある時に教えていただけたら、と思っております。
よろしくお願いします。

0 hits

【20776】ワークシートの一枚をCSV形式で保存したい もろん 04/12/19(日) 16:02 質問
【20777】Re:ワークシートの一枚をCSV形式で保存したい かみちゃん 04/12/19(日) 16:16 回答
【20783】Re:ワークシートの一枚をCSV形式で保存したい もろん 04/12/19(日) 21:33 お礼
【20778】Re:ワークシートの一枚をCSV形式で保存したい Hirofumi 04/12/19(日) 18:52 回答
【20784】Re:ワークシートの一枚をCSV形式で保存したい もろん 04/12/19(日) 21:47 質問
【20794】Re:ワークシートの一枚をCSV形式で保存したい かみちゃん 04/12/20(月) 6:31 回答
【20804】Re:ワークシートの一枚をCSV形式で保存したい もろん 04/12/20(月) 15:15 お礼

60586 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free