如何从两列Excel VBA中提取唯一值

【问题标题】：How to extract unique values from two columns Excel VBA如何从两列Excel VBA中提取唯一值
【发布时间】：2021-05-07 17:08:56
【问题描述】：

我需要将列 (A) 和列 (C) 之间的唯一值显示在列 (E) 中

【问题讨论】：

您希望值出现在 A 列还是 C 列中，但不能同时出现？？
我需要比较 Column(A) 和 Column(C) 之间的值，并在 Column (E) 显示唯一性。
双向进行 vlookup.... 需要 2 分钟。
感谢 findwindow，但我需要通过 VBA 代码制作它

标签： vba excel

【解决方案1】：

这段代码：

Sub GetUniques()
    Dim Na As Long, Nc As Long, Ne As Long
    Dim i As Long
    Na = Cells(Rows.Count, "A").End(xlUp).Row
    Nc = Cells(Rows.Count, "C").End(xlUp).Row
    Ne = 1

    For i = 1 To Na
        Cells(Ne, "E").Value = Cells(i, "A").Value
        Ne = Ne + 1
    Next i
    For i = 1 To Na
        Cells(Ne, "E").Value = Cells(i, "C").Value
        Ne = Ne + 1
    Next i

    Range("E:E").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

会产生这种类型的结果：

【讨论】：

亲爱的，它很棒，但我需要它，如下所示。专栏 (A) 迈克·乔·拉尔夫专栏 (c) 迈克·乔专栏 (E) 拉尔夫