这样处理有问题,你修改名单年度的同时,可能这一行就不属于此表了。
With Tables("展会信息.原始名单") For i As Integer = .BottomPosition To .TopPosition Step -1 .Rows(i)("名单年度") = txt NextEnd With