从Excel中的范围创建唯一值列表

Question

我在Excel的工作表中散布了数据（名称）。 它在A到M列中。某些行的每一列（AM）中都有数据，有些行则没有。

我想提取范围中每个唯一值的列表（甚至是每个值的列表，然后可以删除重复项）。

对于我一生，我无法弄清楚该怎么做，也没有找到在线示例来从RANGE（而不是单个列）中提取唯一值。

有任何想法吗？ 让我知道是否需要更多数据的屏幕截图。

Answer 1

试试这个宏：

Sub MAINevent()
    Dim it As Range, r As Range, x0
        With CreateObject("scripting.dictionary")
            For Each it In Range("A:M").SpecialCells(2)
                x0 = .Item(it.Value)
            Next

            Set r = Cells(1, "N").Resize(.Count, 1)
            r.Value = Application.Transpose(.Keys)
        End With
End Sub

Answer 2

您可以使用Go to Special （ Ctrl + G- > Special ）选择blanks并将其删除（ Ctrl + -选中单元格）。 然后，使用此处描述的公式将所有列彼此堆叠在一起。 然后将公式替换为值，最后使用Remove Duplicates 。