如何把excel中挨着的两列批量导出为txt?

发布网友发布时间：2022-04-24 07:33

共1个回答

热心网友时间：2022-06-17 15:55

假如你要把A列的A1~A100批量导出txt，插入以下宏并执行：
Sub bod()
Dim nm$
For I = 1 To 100
n = n + 1
nm = ThisWorkbook.Path & "\" & Application.Trim(Cells(I, 1)) & ".txt"
Open nm For Output As #I
Print #I, Cells(I, 1) 'Cells(i, 1)为每个txt里面要放的内容，可替换，内容为空则删除
Close #I
Next
End Sub追问我不会宏设置，也不会编程，可不可以详细的讲怎么设置，并且根据我的需要怎么更改代码，两列同时导出到同一个文本。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com