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

尝试一下此宏:

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

你可以用 Go to Special ( G Special )挑选 blanks 并移除它们( Ctrl键 + 选择单元格时)。然后使用描述的公式 here Remove Duplicates .