全部删除:
With Tables("人员添加窗口_Table1") For Each r As Row In .GetCheckedRows r.Checked = False NextEnd With
全部添加:
With Tables("人员添加窗口_Table1") For Each r As Row In .Rows r.Checked = True NextEnd With