Question

excel按固定行数拆分成多个txt ，VBA代码怎么写

比如有10W行excel数据，如何把数据拆分成多个TXT文件，每个TXT文件有4500行

Answer 1

请你试试：

Sub 宏1()
 lastrow = Cells(Rows.Count, 1).End(3).Row
 mypath = "d:\T\"
     m = 1
     y = 1
     Do Until m > lastrow
         For n = m To m + 4499
             Open mypath & Format(y, "P000") & ".txt" For Append As #1
             Print #1, Cells(n, 1).Value
             Close #1
         Next n
         m = m + 4500
         y = y + 1
     Loop
 End Sub