如何利用现有VBA代码去除数字列表中的重复项？

你提供的现有代码仅完成了A列第2行至最后一行内容的分号拼接，并未实现去除重复项的功能。以下是修改后的完整代码，可直接实现去重并合并的需求：

Sub RemoveDuplicatesAndCombine()
    Dim combined As String
    Dim lr As Long
    Dim i As Long
    Dim uniqueVals As Object ' 借助字典存储唯一值
    
    Set uniqueVals = CreateObject("Scripting.Dictionary")
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历A列所有行，收集唯一数字项
    For i = 1 To lr
        Dim cellVal As Variant
        cellVal = Cells(i, 1).Value
        ' 过滤空值和非数字内容
        If Not IsEmpty(cellVal) And IsNumeric(cellVal) Then
            ' 字典键唯一，自动跳过重复值
            If Not uniqueVals.Exists(cellVal) Then
                uniqueVals.Add cellVal, cellVal
            End If
        End If
    Next i
    
    ' 将唯一值用分号拼接
    combined = Join(uniqueVals.Keys, ";")
    ' 写入B1单元格
    Cells(1, 2).Value = combined
    
    ' 执行复制操作（保留原需求）
    Cells(1, 2).Copy
End Sub

代码说明 #

• 采用Scripting.Dictionary的键唯一性特性实现自动去重，逻辑简洁高效
• 增加了空值和数字校验，避免无效内容干扰结果
• 遍历范围覆盖A列所有行（原代码遗漏了第一行）
• 使用Join方法替代循环拼接字符串，提升运行效率
• 移除了冗余的单元格选择操作（VBA中Select方法通常可省略）

原有代码的局限 #

仅实现内容拼接，无去重逻辑；遍历范围遗漏第一行；存在不必要的单元格选择操作

内容的提问来源于stack exchange，提问作者Dan Wilson