如何用Excel VBA提取命名表列的唯一值且不修改原表数据？

你之前的代码直接对原表的Range调用RemoveDuplicates，因为Range是原数据的引用，所以会直接修改原表数据。要实现提取唯一值到变量且不碰原表，给你两个简便方案：

方案1：用字典（Dictionary）去重 #

这是VBA里最常用的无修改去重方式，逻辑清晰且高效：

Sub GetUniqueValues()
    Dim uniqueDict As Object
    Dim dataArr As Variant
    Dim i As Long
    Dim uniqueValues As Variant ' 存储最终唯一值的变量
    
    ' 1. 将目标列数据读入数组（比直接操作Range快）
    dataArr = ThisWorkbook.Sheets("Tab").ListObjects("TableName").ListColumns("ColumnName").DataBodyRange.Value
    
    ' 2. 初始化字典，利用字典键的唯一性去重
    Set uniqueDict = CreateObject("Scripting.Dictionary")
    For i = LBound(dataArr, 1) To UBound(dataArr, 1)
        ' 跳过空值（可选，根据需求调整）
        If Not IsEmpty(dataArr(i, 1)) Then
            uniqueDict(dataArr(i, 1)) = Empty
        End If
    Next i
    
    ' 3. 将字典的键转存到变量（数组格式）
    uniqueValues = uniqueDict.Keys
    
    ' 后续可对uniqueValues变量进行处理，比如遍历输出
    ' For i = LBound(uniqueValues) To UBound(uniqueValues)
    '     Debug.Print uniqueValues(i)
    ' Next i
End Sub

方案2：用高级筛选（AdvancedFilter）复制临时数据 #

如果习惯用Excel内置功能，可以把数据复制到临时区域去重，再读入变量：

Sub GetUniqueValuesWithFilter()
    Dim tempRange As Range
    Dim uniqueValues As Variant
    
    ' 1. 定义临时存储区域（比如用工作表空白单元格，这里用Sheet2的A1，可按需调整）
    Set tempRange = ThisWorkbook.Sheets("Sheet2").Range("A1")
    
    ' 2. 对原表列执行高级筛选，复制唯一值到临时区域
    ThisWorkbook.Sheets("Tab").ListObjects("TableName").ListColumns("ColumnName").DataBodyRange.AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=tempRange, _
        Unique:=True
    
    ' 3. 将临时区域的唯一值读入变量
    uniqueValues = tempRange.CurrentRegion.Value
    
    ' 4. 清理临时数据（可选）
    tempRange.CurrentRegion.Clear
    
    ' 后续处理uniqueValues变量
End Sub

注意：方案2的临时区域要确保是空白的，避免覆盖已有数据；如果原列有大量空值，两种方案都可以加判断跳过。

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