EXCEL如何拆分成多個text,如圖

要用到編程，按ALT+F11組合鍵，打開VB窗口，執行"插入"-"模塊"，復制下面代碼進去，確保圖上工作表是活動工作表的情況下，按F5運行程序即得到結果。文件導入到E盤裏。

Private Sub Export()

Dim Path As String

Path = "E:\"

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

Open Path & "\" & Cells(i, 1) & ".txt" For Output As #1

Print #1, Cells(i, 2)

Close #1

Next

MsgBox "導出完成", vbInformation, "提示"

End Sub