楼主的意思是,可能会有增加行、删除行、插入行、移动行的操作。
频繁操作过后,序号列的顺序就乱了,而且可能不连续。
那就弄个保存按钮:For Each r As Row In Tables("表A").Rows r("序号") = Format(r.Index + 1,"00000")NextDataTables("表A").Save()