Sub 印刷() Dim i As Long, cel As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual i = Range("B2").Value '列数カウント c…
pe pe
2023年2月8日 08:26
Sub 印刷()Dim i As Long, cel As LongApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManuali = Range("B2").Value '列数カウントcel = 4 '列目から'CSV用定義ーーーーーーーーーーーーーーーーーーーーーーーーーーー