Excel数据导出到txt文档

因工作需要，需要txt文档的每一项后增加lang3选项。txt文档格式如下：

如果一个一个添加将会非常麻烦，在师傅的指导下，利用excel轻松的完成了。

首先将txt文档内容整理到excel中，格式如下：

然后，增加一列lang3

利用excel的vba按照指定格式导出到txt文档中。

很简单的完成了本来费劲的工作，看来学会用好工具和归档如此重要。

贴出程序和一个很好的excel网站：http://club.excelhome.net/forum.php

 test()
    Dim arr, fn$, s$
    arr = Range("a1").Cu