主题：[求助]如何粘贴为多行文本

1、你直接复制粘贴，就可以了吧？

2、如果要用代码获取和赋值，参考代码

Dim t As Table = Tables("表A")
Dim str As String = ""
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    str &= r("第一列") & vbcrlf
Next
msgbox(str)