显示更改长度列表的结果

Question

我有一个字符串值列表。列表内容的数量不断变化，取决于用户选择的标准。我想在Excel工作表中显示列表。最好的方法是什么？我应该使用msgbox或Userform还是别的什么？

Answer 1

MsgBox 将是O.K.，具体取决于您的需求：

Sub DataItems()
    n = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To n
        st = st & vbCrLf & Cells(i, 1)
    Next i
    MsgBox st
End Sub

修改＃1：

这是一个显示一维数组中项目的版本：

Sub DataItems()
    ary = Array("John", "James", "Michael", "William", "George", "Nigel")
    For Each a In ary
        st = st & vbCrLf & a
    Next a
    MsgBox st
End Sub