Excel匹配功能

时间:2017-10-26 12:32:19

标签: excel excel-formula excel-match

我的工作表有两列:Column AColumn B

Column A有一个名称列表,Column B有相应的值。

列表中的某些项目(Column A)在Column B中包含不同值的重复项。

我要做的是删除Column A中的重复内容,并且每个中只有一个副本,并且在一个单元格中包含所有相应的值。

示例:

Colmn A      Column B                     Column A      Column B
Apple           7                         Apple            7, 1
Orange          2         will be         Orange           2   
Apple           1

我正在使用下面的公式,但它给了我一个#NAME?错误:

=IF(MATCH(A2,A:A,0), contenate(B:B))

有人可以告诉我我做错了吗?

1 个答案:

答案 0 :(得分:0)

这个简短的宏会将结果放在 D E 列中:

Sub Macro1()
    Dim M As Long, N As Long, rc As Long
    Dim i As Long, j As Long, v As String
    rc = Rows.Count

    Columns("A:A").Copy Columns("D:D")
    Range("D:D").RemoveDuplicates Columns:=1, Header:=xlNo
    M = Cells(rc, 1).End(xlUp).Row
    N = Cells(rc, 4).End(xlUp).Row

    For i = 1 To N
        v = Cells(i, 4)
        For j = 1 To M
            If Cells(j, 1) = v Then
                If Cells(i, 5) = "" Then
                   Cells(i, 5) = Cells(j, 2)
                Else
                    Cells(i, 5) = Cells(i, 5) & "," & Cells(j, 2)
                End If
            End If
        Next j
        Next i

End Sub

例如:

enter image description here