答：用到编程，示例中指定为E盘，可以更改至其他目录。Sub ExportTxt() Dim FilePath As String Dim Cell As Range, i As Integer FilePath = "E:\" For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If Not IsEmpty(Cell) Then Open FilePa...