如何复制行数据并将其放入文本框，行之间用逗号隔开

Question

我目前正在构建批量电子邮件VBA设备。一切都很好，我只需要将自动过滤的数据从工作表移到用户窗体中即可。

例如，如果B列是电子邮件列表，并且有50个数据点以类似的方式...

EMAIL LIST
jsmith@gmail.com 
mschwitz@yahoo.com
email@gmail.com
etc...

用户窗体文本框中所需的输出：“ jsmith @ gmail.com，mschwitz @ yahoo.com，email @ gmail.com”

Answer 1

要使用Tim's代码，请添加按钮并使用它，并更改其范围以适合您。确保您的按钮和文本框正确。

Private Sub CommandButton1_Click()
    Dim arr
    arr = Join(Application.Transpose(Sheet1.Range("B2:B51").Value), ",")
    Me.TextBox1 = arr
End Sub