方法一：在D盘目录下新建文件夹“按行导出”（这个可以自行修改）
利用如下宏代码【注意：此代码只适应于每行数据全在A列的情况】。
Sub DaoChu()Dim I As IntegerFor I = 1 To 500 '根据总行数进行修改Open "D:\按行导出\第" & I & "行.txt" For Output As 1 '输出目录和文档名称自行修改Print #1, Range("A" & CStr(I)).ValueClose 1Next IMsgBox "数据导出完毕!", vbOKOnly, "导出成功"End Sub
方法二：
1、将excel中文档，ctrl+A全选，ctrl+C复制，然后，ctrl+V粘贴在新建的text1.txt中，
2、将附件中的“按行导出.bat”粘贴text1.txt所在目录下。双击按行导出.bat即可。
强烈建议用方法二。简单，且适应于多列数据。
匿名回答于2019-05-25 00:38:28
