主题：多行的选定和输入

Dim t As Table = Tables("商品")
t.Current(t.ColSel)=e.Sender.text
With CurrentTable
    .Position = .Position + 1
End With

这个代码是选定的一行上有效

可不可以做成选定的多行一样有效呢

就是说选定多行后， 点击按钮， 多行的数据都变成按钮的标题

在追加一点啊

加入我想所有被选中的  aa列的数据都变成 按钮的代码应该怎么办？

不好意思啊。我是文盲，多多包含