作者：乔山办公网日期：
返回目录：excel表格制作
Ctrl+A 全选 单击右键 选“段落” “段前”和“段后”全改成“0”
Sub rangetotxt()
' 注意本人试验用的表名为"sheet1",请将下面两处"sheet1"改为抄您所用的表名
For j = 3 To 7 '建立第3行到第7行的各行文件，具体自己改
name1 = Sheets("sheet1").Cells(j, 3).Value
'这里以第三列为文件名，您怎么又说第二列为文件名。具体您也可以将上行代zhidao码3改为2
name1 = "E:\" & name1 & ".txt"
Open name1 For Output Access Write As #1
For i = 1 To 10 '每一行从第1列到第10列的内容写到文体文件，具体自己改。
Print #1, Sheets("sheet1").Cells(j, i).Value
Next
Close #1
Next j
End Sub
本人写的代码很丑，也是学习。
使用请注意
先用小样本试下。
代码有需要改的地方您看注释。
希望能帮到您。
横向在excel中输入数据试试呢。
或者手动在TXT中删除。