1、beforeSort 事件
e.cancel = true
你编写代码排序
systemready = FalseTables("表A").sort = "第一列"systemready = True
2、复制过来以后,执行排序代码
Tables("表A").sort = "第一列"