Question

vba 多个excel单元格赋值给一个多行textbox

详细为:
excel中A列为数值列（数值行数是可变的），需将A列的数值按行的形式追加到textbox中。
（判断A列数值个数等循环语句都会）
请问如何将数值追加到textbox中。

Answer 1

For i = 1 To Application.WorksheetFunction.CountA(Range("A:A"))
    s = Cells(i, 1).Value
    If i = 1 Then
        TextBox1.Value = s
    Else
        TextBox1.Value = TextBox1.Value & vbCrLf & s
    End If
Next

Answer 2

http://club.excelhome.net/thread-1013666-1-1.html

追问

好像不符。textbox只有一个