主题：请帮助写代码？

如果最新的版本，做个按钮，按钮代码：
 
Tables("表A").Filter = ""
For each r as row in Tables("表A").Rows
     r("双台1") = False

     r("双台2") = False
Next
Tables("表A").RepeatFilter("姓名1", 2)
For each r as row in Tables("表A").Rows
     r("双台1") = True
Next
Tables("表A").RepeatFilter("姓名2", 2)
For each r as row in Tables("表A").Rows
     r("双台2") = True
Next