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

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

举报该文章

第1个回答 2016-09-24

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

本回答被提问者和网友采纳

第2个回答 2016-09-24

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

好像不符。textbox只有一个

相似回答

大家正在搜