，请大师给一下原代码！非常感谢！我是菜鸟中的菜鸟！请各位多包涵！！！！

这张图说明不了你要实现什么？

建议用数据库管理“标签数据”估计效果会好点，如果Execl够用了就直接输入到表格去，何必要转一圈再回到原点？

补充说明：TXT文件中的123.TXT是客户给的，有时会给乱码，
只有从行下标识别选取指定的号码，按要求写到表格中

我想把TXT文件转成右边表格

如果只是你说的这样，完全可以直接复制txt中的内容，在Excel中粘贴，自然就变成一列。或者用Excel自带的导入数据
其他地方手输，利用快速填充即可。
乱码的事情，除非你能确定什么是乱码，或者反过来说你能确定什么是有效的数据。你前面帖子里讲到的根本和乱码没有关系

非要用代码的话，建议用VBA，录制一两段宏之后修改就好。 给你一段示例

dim r_i as integer
r_i=1
Open "C:\1.txt" for input as #1
do while not EOF(1)

 line input #1,a 

 cells(r_i,1)=a

 r_i=r_i+1
loop
close #1

非常感谢！