excel中，“文件”“另存为”，格式选用“文本文件 （制表符分隔）”即可
For I = 1 To CW Open "D:\" & Chr(Asc("A") + I - 1) & "行.txt" For Output As 1 For J = 1 To RW Print #1, Range(Chr(Asc("A") + I - 1) & CStr(J)).Value Next J Close 1 Next I MsgBox "数据导出完毕!", vbOKOnly, "导出成功"End Sub ...
直接导出，然后，在记事本里，ctrl+h，将空格替换为空白。