参考
http://www.foxtable.com/webhelp/scr/1776.htm
For Each r As Row In Tables("表A").GetCheckedRows Dim nr As Row = Tables("表B").AddNew nr("第一列") = r("第一列") nr("第二列") = r("第二列")Next