主题：多选复制

With Tables("生产计划表")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i as Integer = .TopPosition To .BottomPosition
dim sr as row = .rows(i)

dim ar as datarow = datatables("产品信息表").addnew

ar("目标表列i") = sr("源表列k")

        Next
    End If
End With