以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教将剪贴板的字符串粘贴到另一表第某列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186233)

--  作者:13315253800
--  发布时间:2023/4/14 20:49:00
--  请教将剪贴板的字符串粘贴到另一表第某列

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

Dim s As String

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

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

Next

ClipBoard. GetText (s)


--  作者:有点蓝
--  发布时间:2023/4/15 9:04:00
--  

For i as integer = 0 to 9 

Tables("表B").rows(i)("第一列") = Tables("表A").rows(i)("第一列") 

Next