アクティブシートに対して処理されます。 日付と時刻の行はFormat関数で整形されます。 カンマ付テキスト(UTF-8)に変換され、指定したファイル名で保存されます。 Sub Googleカレンダーインポート用CSV出力() fnsave = Application.GetSaveAsFilename( _ "import.csv", "CSV(*.csv),*.csv") If fnsave = False Then Exit Sub mytext = "" i = 1 Do j = 1 Do If Right(Cells(1, j), 4) = "Date" Then temp = Format(Cells(i, j), "yyyy/mm/dd") ElseIf Right(Cells(1, j), 4) = "Time" Then temp = Format(Cells(i, j),