全选
For Each r As Row In Tables("表A").Rows r("选择") = TrueNext
全不选
For Each r As Row In Tables("表A").Rows r("选择") = FalseNext
反选
For Each r As Row In Tables("表A").Rows r("选择") = Not r("选择")Next