CSV出力メモ

Sub 印刷()

Dim i As Long, cel As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

i = Range("B2").Value '列数カウント

cel = 4 '列目から

'CSV用定義ーーーーーーーーーーーーーーーーーーーーーーーーーーー