説明は簡潔にしています、おそらくこれを読む人は、それなりにVBAをしっている方だとの判断です。今回はCSVの出力です。2通りの方法を紹介します。エクセルの機能をそのまま利用します。Ifsht.Selectsht.Copy'不要な先頭の行列を削除します。("CSV出力しました。Sub引数で、ワークシートと開始セルを指定できるようにしています。これにより、どのシートからも使えるようになります。Application.GetSaveAsFilename保存ファイルを選択するダイアログを表示します。シート名+「.csv」を初期のファイル名にしています。拡張子は、csvのみ指定しています。開始セルより上の行、左の列は削除して、CSVに出力されないようにしています。名前を付けて保存これは簡単です。これでは、いろいろ不都合な場合があります。他システム、特にDB等へアップロードする場合には、このままでは出来ない事があるのです。日付は、表示形式のままの文字列で出力されてしまいます。数値もカンマ付の場合は、"12,345"のように、文字列として出力されます。書式の変更も面倒なら、また元に戻す必要があり、何かと不都合です。このような場合は、直接CSVを出力するようにします。("CSV出力しました。以前に作成済のモジュールです。行列がでこぼこに入力されている場合でも、正しく最終判定をする為に使用しています。通常の一覧なら、End(xlUp)等でも良いでしょう。