比如
Dim str As String = ""For Each r As Row In Tables("表A").Rows str &= r("第二列") & vbcrlfNext
ClipBoard.settext(str)
加好友 
发短信
Post By：2018/12/19 17:26:00 [显示全部帖子]
