主题：请教将剪贴板的字符串粘贴到另一表第某列

想将表A的第一列1至10行的数据复制到剪贴板，然后粘贴到表B第一列的1-10行，用下面的代码没实现，请老师指导一下，谢谢！

Dim s As String

For Each r As Row In Tables("表B").rows

s = s & vbcrlf & (r("第一列"))

Next

ClipBoard. GetText (s)