当项目是一个数字时，收集function无法收集唯一的项目？

即时通讯使用以下收集脚本是针对每列工作。 我已经使用了4列相同的脚本，它完美的作品。 但是，1列只填充了数字值，因此无法返回任何内容。 如果我在这个引用字段中插入一个文本值，它们会根据需要返回。 我能想到的唯一的事情就是我需要把数字值先解释为一个string，然后运行集合呢？

代码如下：

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)