我的工作表有两列:Column A
和Column 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))
有人可以告诉我我做错了吗?
答案 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
例如: