With Tables("表A") For i As Integer = 0 To .Rows.Count - 1 .Rows(i)("序号") = i + 1 Next End With
将这个代码在成全局事件怎么改,甜哥,蓝老师