版主大大，又遇见新问题了，如果编号为纯数字，上面的程序没有问题，但如果编号为各种字符（数字+字母+小数点或其他字符），可能就没法处理了，请大大帮忙看看。

附件中的“记录1”文档是编号为纯数字，“记录2”文档是编号为各种字符（数字+字母+小数点或其他字符）混加。

你的问题关键是有一个编号的前缀。
前缀读取方法：

找NO：这行。
找到后，去掉 NO： 共4个字符。
然后从后面向前搜索，找到的第一个不为数字的字符为止。
这剩余部分就是 前缀 ，保存。

前缀分二种情况，一种是每行都不同。
修改 结构定义，把前缀定义进去，保存每行的缀。
一种是每行一样的，可以使用上一种方法处理，以便容错。
也可以只读一次。每次用这一个。

思路说了，代码你自己想吧，总要做作业的。

好的，我试试，另外是不是还要考虑一下数据类型的问题？有些Dim就不能用 long，得改成String？

您好，版主大大，我考虑再三，认为只是输入和输出的字符数据类型问题。Long是数值型，将部分Long换成String，把order(j) = Val(Mid(m(i), 5))的Val()去除，就可以输入，显示，修改成功了。
再次感谢版主大大。