如何调用集合的每个项目

Question

我设法将一系列单元格存储到一个集合中。

我正在尝试使用集合中的每个项目。

我未能通过使用Collection.Item 和debug.Print 在即时窗口中显示它来调用它。

如果我只将一个单元格存储到集合中，这将有效。

lastRowIndex = Cells(Rows.Count, 1).End(xlUp).Row
Set PGname = New Collection
Set HScode = New Collection
For i = 1 To lastRowIndex
    PGname.Add Range((Cells(i, 1)), (Cells(i, 2)))
    HScode.Add (Cells(i, 2))
Next i
Debug.Print PGname.Item(1)  'this does not work
Debug.Print HScode.Item(1)  'this works

Answer 1

试试这个：

Option Explicit

Public Sub Test()
    Dim i                   As Long
    Dim lastRowIndex        As Long
    Dim PGname              As Object
    Dim HScode              As Object

    lastRowIndex = 10

    Set PGname = New Collection
    Set HScode = New Collection
    For i = 1 To lastRowIndex
        PGname.Add Range((Cells(i, 1)), (Cells(i, 2)))
        HScode.Add (Cells(i, 2))
    Next i
    Debug.Print PGname.Item(1).Address
    Debug.Print PGname.Item(1)(1)(1) 'this would print you cell A1

End Sub

您收到错误消息，因为您试图打印多个单元格的范围。 看看这两个 debug.prints。在 A1 中添加一些值以确保它打印的内容。