Question

我有5种不同的电子表格存储电话号码和姓名。他们都看起来像这样：

Name     Telephone
--------------
name1    551
name2    552
name1    551
name5    555

（每个电子表格中有数千条记录）

我想要第六个电子表格将所有这些组合在一起，显示没有重复的值（因此1 *名称1）和1 *名称5.但是重复可以在多个电子表格中，例如名称1可能出现在所有5电子表格。

有什么建议吗？

Answer 1

这是VBA方法。代码并不困难，以防你可以使用VBA。在第一张纸张之前插入新纸张。按Alt + F11并复制粘贴以下代码。

并按F5将5张中的所有联系人合并到sheet1并删除重复项。 Imp注意：在执行此代码之前，请备份您的Excel工作簿。

Sub Combine_and_Remove_Duplicates()
Output_Row = 2

For Sheet_Index = 2 To 6
    Input_Row = 2
    While Sheets(Sheet_Index).Cells(Input_Row, 1) <> ""
        Sheets(1).Cells(Output_Row, 1) = Sheets(Sheet_Index).Cells(Input_Row, 1)
        Sheets(1).Cells(Output_Row, 2) = Sheets(Sheet_Index).Cells(Input_Row, 2)
        Output_Row = Output_Row + 1
        Input_Row = Input_Row + 1
    Wend
Next Sheet_Index

Sheets(1).Columns("A:B").RemoveDuplicates Columns:=Array(1, 2), Header _
    :=xlYes

End Sub

多个电子表格中的唯一值

1 个答案: