VBA教你如何把一列数据按多少行保存一个TXT

1、打开目标excel,按alt + f11键打开VBE窗口

2、选择插入->模块

3、将代码粘贴到编辑器中Sub A列每10行转文本()Dim rng As Range, Hrng As Range髫潋啜缅endrow = Range("A65536").End(xlUp).RowFor Each rng In Range("A1:A" & endrow)n = rng.Row Mod 10If n = 1 Thenipath = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "-" & rng.Row & ".txt"Open ipath For Output As #1End IfPrint #1, rng.ValueIf n = 0 Then Close #1NextClose #1MsgBox "已处理完毕"End Sub

4、将EXCEL格式保存为.xlsm。