显示长度变化列表的结果

Question

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

Answer 1

A MsgBox将是ok的，取决于您的需要:

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