如何把excel每一行各导出为一个txt文本

1、首先用快捷键Alt+F11，打开VBA，打开后界面如下。

3、输入的指令为：Sub txt()Dimi,j,arr(),brr(),m鲻戟缒男yRow,myColarr=Sheet1.UsedRange myRow=U蚱澄堆别Bound(arr,1)myCol=UBound(arr,2) Fori=1TomyRow OpenThisWorkbook.Path&"\"&arr(i,1)&"1.txt"ForOutputAs#1Print#1,Join(Application.Index(arr,1),",")Print#1,Join(Application.Index(arr,i),",")Close#1NextEndSub这个指令具体是什么意思是需要系统学习VBA的，非专业人员只需要复制就ok了。

5、最后点击运行就可以了，输出的txt会保存在excel的目录里面。