主题：[求助]如何将选定行内容添加到指定表格的对应列内

Dim f As New Filler
f.SourceTable = DataTables("表1") '指定数据来源
f.SourceCols = "名称" '指定数据来源列
f.DataTable = DataTables("表2") '指定数据接收表
f.DataCols = "名称" '指定数据接收列
f.Fill() '填充数据

以上是图例复制的，但是他把所有表1里的名称都复制过去了，而我就想要选定行的。要如何修改。请高手帮解答解答。谢谢