VBA如何将数组元素逐行写入用户窗体多行文本框

两个核心错误导致效果不符合预期：

• 循环中每次直接对txtBox.Text赋新值，会完全覆盖文本框内原有内容，循环结束后自然只会留下最后一个数组元素
• 你尝试的换行写法存在语法错误，将vbNewLine作为数组索引参数传入，没有实现字符串和换行符的拼接，自然无法触发换行效果

你的文本框Multiline属性已经设置正确，不需要额外调整该属性，根据使用场景选以下任意一种方法即可：

方法1：循环逐行拼接（兼容多维数组取值场景） #

每次写入新元素时，把新内容追加到原有内容末尾，元素之间插入换行符即可。如果不需要末尾多一个空行，可以用分支判断处理第一个元素：

' 先清空文本框原有残留内容
frmMyForm.txtBox.Text = ""
Dim i As Long
For i = LBound(clipArray) To UBound(clipArray)
    If i = LBound(clipArray) Then
        ' 第一个元素直接写入，前面不需要加换行
        frmMyForm.txtBox.Text = clipArray(i)
    Else
        ' 后续元素先加换行符，再拼接元素内容
        frmMyForm.txtBox.Text = frmMyForm.txtBox.Text & vbCrLf & clipArray(i)
    End If
Next

如果不在意最后多出一个空行，可以写得更简洁：

frmMyForm.txtBox.Text = ""
Dim i As Long
For i = LBound(clipArray) To UBound(clipArray)
    frmMyForm.txtBox.Text = frmMyForm.txtBox.Text & clipArray(i) & vbCrLf
Next

方法2：Join函数一次性拼接（仅适用于一维数组，性能更高） #

如果clipArray是一维数组，不需要逐行判断处理的话，直接用VBA内置的Join函数把所有数组元素用换行符拼接成一个完整字符串，一次性赋值给文本框即可，数组元素量大的时候比循环拼接效率高很多：

frmMyForm.txtBox.Text = Join(clipArray, vbCrLf)

提示：如果你处理的是二维数组，只需要在循环时指定要读取的数组维度索引即可，拼接逻辑和上述循环写法完全一致。

内容的提问来源于stack exchange，提问作者B.Cap