Sub 印刷() Dim i As Long, cel As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual i = Range("B2").Value '列数カウント cel = 4 '列目から 'CSV用定義ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Dim csvFile As String Dim Fi