Sub CSV出力()
    Dim csvFilePath As String
    Dim iCount As Long
    Dim jCount As Long
    Dim kCount As Long
    Dim maxRow As Long
    Dim maxCol As Long
    Dim fileNo As Integer
    Dim FileName As String
    Dim wScriptHost As Object, strInitDir As String
    'カレントディレクトリをデスクトップに変更
    Set wScriptHost = CreateObject("WScript.Shell")
    ChDir wScriptHost.SpecialFolders("Desktop")

    FileName = Application.GetSaveAsFilename("sample.csv", "CSVファイル(*.csv;),*.csv", 2, "保存するファイルの名前を指定してください。")

    ' CSVファイルパスの作成
    csvFilePath = FileName
    ' 最終行
    maxRow = ActiveSheet.Range("A1").End(xlDown).Row
    ' 最終列
    maxCol = ActiveSheet.Range("A1").End(xlToRight).Column
    ' ファイル番号
    fileNo = FreeFile

    ' ファイル開く
    Open csvFilePath For Output As #fileNo

    Dim isSecond As Boolean
    isSecond = False
    Dim isThird As Boolean
    isThird = False
    
    ' 縦方向ループ（最終行まで）
    For iCount = 2 To maxRow
        ' 横方向ループ（最終列－１まで）
        For jCount = 1 To 80
            '基本情報
            If jCount < 32 Then
                ' ファイル出力（改行なし）
                Print #fileNo, Cells(iCount, jCount) & ",";
            '基本情報最後
            ElseIf jCount = 32 Then
                ' ファイル出力（改行付き）
                Print #fileNo, Cells(iCount, jCount)
            ' 商品情報1行目
            ElseIf jCount < 48 Then
                ' ファイル出力（改行なし）
                Print #fileNo, Cells(iCount, jCount) & ",";
            ' 商品情報1行目最後
            ElseIf jCount = 48 Then
                ' ファイル出力（改行付き）
                Print #fileNo, Cells(iCount, jCount)
            ' 商品情報2行目最初
            ElseIf jCount = 49 Then
                If Cells(iCount, jCount) <> "" Then
                    isSecond = True
                    ' ファイル出力（改行なし）
                    Print #fileNo, Cells(iCount, jCount) & ",";
                End If
            ' 商品情報2行目内容
            ElseIf jCount < 64 Then
                If isSecond = True Then
                    ' ファイル出力（改行なし）
                    Print #fileNo, Cells(iCount, jCount) & ",";
                End If
            ' 商品情報2行目最後
            ElseIf jCount = 64 Then
                If isSecond = True Then
                    ' ファイル出力（改行付き）
                    Print #fileNo, Cells(iCount, jCount)
                End If
            ' 商品情報3行目最初
            ElseIf jCount = 65 Then
                If Cells(iCount, jCount) <> "" Then
                    isThird = True
                    ' ファイル出力（改行なし）
                    Print #fileNo, Cells(iCount, jCount) & ",";
                End If
            ' 商品情報3行目内容
            ElseIf jCount < 80 Then
                If isThird = True Then
                    ' ファイル出力（改行なし）
                    Print #fileNo, Cells(iCount, jCount) & ",";
                End If
            ElseIf jCount = 80 Then
                If isThird = True Then
                    ' ファイル出力（改行付き）
                    Print #fileNo, Cells(iCount, jCount)
                End If
            Else
                ' ファイル出力（改行なし）
                Print #fileNo, Cells(iCount, jCount) & ",";
            End If
            ' ループカウンタをコピー
            kCount = jCount
        Next jCount
        'メモ内容がある場合は、メモ行を出力
        If Cells(iCount, kCount + 1) <> "" Then
            Print #fileNo, "3,,01,";
            ' 最終列をファイル出力（改行付き）
            Print #fileNo, Cells(iCount, kCount + 1) & ","
        End If
        isSecond = False
        isThird = False
    Next iCount

    ' ファイルを閉じる
    Close #fileNo
'
End Sub