1、去拷贝汇总模式的代码;
2、
For Each r As Row In Tables("表A").Rows r("第一列") = True r.Locked = True r.SaveNext
3、Tables("表A").Filter = "第一列 = true"