主题：删除行序号列不会自动变化

楼主的意思是，可能会有增加行、删除行、插入行、移动行的操作。

频繁操作过后，序号列的顺序就乱了，而且可能不连续。

那就弄个保存按钮：
For Each r As Row In Tables("表A").Rows
    r("序号") = Format(r.Index + 1,"00000")
Next
DataTables("表A").Save()