Excelで選択範囲のみをダブルコーテーション付きでCSVファイル保存するVBAマクロ - Qiita

Option Explicit Sub csv_create_0() Dim sname, fname As String Dim rng As String 'CSVファイル名 fname = Application.GetSaveAsFilename(, "CSVファイル(*.csv),*.csv") '選択範囲のセルアドレス rng = Selection.Address 'シート名 sname = ActiveSheet.Name '新しいシートを追加し、選択範囲を値コピー Range(rng).Copy Worksheets.Add.Range("A1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False '新しいブックを作成し、そこにシートを移動する ActiveSheet.Move '上書きのメ