根据不同的列将过滤后的值添加到清单或集合中

Question

我只是想将范围过滤到数组或集合中，以便可以使用其他软件。

Sub TestCollection()

Dim ListedCollection As Collection

Worksheets("Datasources").Activate
ListedColumnID = GetColumnIndexByHeader("ASSET_CLASS")
SecurityColumnID = GetColumnIndexByHeader("TXN_SEC_DESC")

lngLastRowDS = Worksheets("Datasources").Cells(Sheets("DataSources").Rows.Count, SecurityColumnID).End(xlUp).Row


    Set ListedArrary = New Collection

       For Each cell In Range(Worksheets("Datasources").Cells(2, SecurityColumnID), Worksheets("Datasources").Cells(lngLastRowDS, SecurityColumnID))

        If cell.Offset(0, 7).Value = "Listed" Then
            ListedCollection.Add cell.Value
            Else
            End If
    Next
    Debug.Print ListedCollection


End Sub

列出另一列后，我很难添加到集合中。我无法操纵数据源。

干杯