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

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

2、选择插入->模块

3、将代码粘贴到编辑器中

Sub A列每10行转文本()

Dim rng As Range, Hrng As Range

endrow = Range("A65536").End(xlUp).Row

For Each rng In Range("A1:A" & endrow)

n = rng.Row Mod 10

If n = 1 Then

ipath = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "-" & rng.Row & ".txt"

Open ipath For Output As #1

End If

Print #1, rng.Value

If n = 0 Then Close #1

Next

Close #1

MsgBox "已处理完毕"

End Sub

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