作者：乔山办公网日期：
返回目录：excel表格制作
1 选中这一列，复制zhidao；
2 找个空白表，使用【选择性粘贴】->【转置】；专
3 这样就将 列 转换为了 行；
4 然后另存这个表为CSV
5 用记事本或word打开属这个csv。不要直接双击，那样会用excel自动打开。
结束。
先运行EXCEL
"文件"--“打开”，在“打开”对话框的右下“取消”按钮上方有个下拉列表框，点其右的小三角，选“*prn;*.txt;*.csv”这一项(一些版本的EXCEL的列表中有“文本文件”),再点击对话框中相应栏zhidao目，找到要导入的文本文件所在文件夹位置，双击该文件，即可打开。
（1、2两步也可以在该文件夹中先点选该文件，再按住键盘上SHIFT键的同时右击鼠标，通过“打开方式”找到excel来打开）
如此打开文本文件后，就会出现一个导入文本文件向导。向导有三步，第1步不用内管（如果文本数据中有字段名容称，则需要勾选"数据包含标题"该项前的勾，下列演示图片中文本数据没有字段名称），直接点“下一步”，在第2步中有“分隔符”选择项，仅勾选“其他”前的勾并在其后输入框中输入竖线；第3步一般也不用设置，直接点“完成”，即可。
Sub test()
Dim mRow As Long, mAry, f As String, i As Long, j As Integer, s As String
On Error Resume Next
mRow = Cells(Rows.Count, 3).End(3).Row
mAry = Range([c1], Cells(mRow, "J"))
For i = 1 To UBound(mAry, 1)
f = "D:\" & mAry(i, 1) & mary(i,2) & ".txt"
s = ""
For j = 1 To UBound(mAry, 2)
s = s & IIf(s = "", "", "，来") & mAry(i, j)
Next
Open f For Output As #1
Print #1, s
Close #1
Next
MsgBox "完成自导百出度！问答"
End Sub
你说了我最想说的答案。
看了一下excel的保存里面好像没有导出间隔符的设置
仔细想了想 只有保存成txt，再把tab符号替换成竖线了。其实和替换逗号差不多。