czjt1234

echo %lnum% >> 1.csv

每次该命令都会执行一次写硬盘操作，当然慢了
全部或部分写入内存，然后写入硬盘

czjt1234

' & cls & cscript /nologo /e:vbs "%~f0" >1.csv & pause & exit

H = 500    '输入行数
L = 60     '输入列数
begin = Timer()
ReDim arr1(L - 1), arr2(H - 1)
For j = 1 To H
    For i = j To j + L - 1
        arr1(i - j) = i
    Next
    arr2(j - 1) = Join(arr1, ",")
Next
s = Join(arr2, vbCrLf)
finish = Timer()
WScript.Echo finish - begin & "秒"
WScript.Echo s
复制代码

自己修改行数