excel - 将水平范围转换为数组并打印

Question

我无法打印水平范围。这令人惊讶，因为我的代码在垂直范围内完美运行。我不明白什么？

Sub hello()

    Dim i As Long

    Dim enumTitles As Variant

    Dim listTitles() As Variant

    ' enumTitles = ThisWorkbook.Worksheets("hello").Range("A1:A3")
    ' Works.

    enumTitles = ThisWorkbook.Worksheets("hello").Range("A1:C1")
    ' Doesn't work.

    listTitles = enumTitles

    For i = LBound(listTitles, 1) To UBound(listTitles, 1)

       Debug.Print (listTitles(i, 1))

       'Only one result is displayed. Not three.

    Next i

End Sub

目标不是明显地打印。它是重用它的值。

非常感谢你的帮助。

Answer 1

只需连接数组的元素:

Sub dural()
    enumTitles = ThisWorkbook.Worksheets("hello").Range("A1:C1")
    For Each a In enumTitles
        msg = msg & a & " "
    Next a
    Debug.Print (msg)
End Sub

编辑#1:

获取 具体项目在数组中，我们要么知道它的位置，要么使用循环来找到它。假设我们知道 beta 是水平数组中的第二个元素。我们会:

Debug.Print (enumTitles(1, 2))