方法一：在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即可。

強烈建議用方法二。簡單，且適應於多列資料。