当项目是数字时，收集功能无法收集唯一项目？

Question

我正在使用以下针对每列工作的Collection脚本。我为4列使用了相同的脚本，它完美地运行。但是，1列仅填充数字值，因此无法返回任何内容。如果我在此引用字段中插入文本值，则会根据需要返回它们。我唯一能想到的是我需要先将数值解释为字符串，然后运行集合？

以下是代码：

Sub list_gen_uni()

Sheets("xx").Select

 'Units/Item
 Dim UNI As New Collection


On Error Resume Next
    For Each cell In Range("J2:J1000")
     UNI.Add cell.Value, cell.Value
     Next cell

On Error GoTo 0

For i = 1 To UNI.Count
 Cells(i + 1, "K") = UNI.Item(i)
 Next


Call list_gen_items


End Sub 

Answer 1

你是正确的，键需要是文本，所以使用CStr：

UNI.Add cell.Value, CStr(cell.Value)