Sub CSV出力(ByVal sht As Worksheet, Optional ByVal rngStart As Range = Nothing) Dim varFile As Variant varFile = Application.GetSaveAsFilename(InitialFileName:=sht.Name & ".csv", _ FileFilter:="CSVファイル(*.csv),*.csv", _ FilterIndex:=1, _ Title:="保存ファイルの指定") If varFile = False Then Exit Sub End If sht.Select sht.Copy '不要な先頭の行列を削除します。 If Not rngStart Is Nothing Then If rngStart.Row > 1 Then Range(Rows(