我们的目标是当 A 中的数据相等时合并名称 (B)。下面的公式查看下一行 (A),如果相同,则合并来自 B 的数据 (名称)。该公式在 C 中,因此合并名称的结果将出现在 C 中。
=IF(A2<>A3,B2, B2&" , "&B3)
例子:如果 A2:XYZ
和 A3:XYZ
然后合并B2:Sam
并。B3:Dan
C = "Sam, Dan"
问题:我们需要显示合并到一个单元格(C)中具有匹配 A 的所有名称,跳过重复项。
如果 A1:A4 = XYZ,
和B1:山姆 B2=丹 B3=丹 B4=乔然后C 中的结果应为“Sam, Dan, Joe”
任何建议,将不胜感激。
答案1
这个 VBA 将按升序排序,删除重复项,并给出输出列表
Sub test()
Application.ScreenUpdating = False
' Sort Ascending
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A:B")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Remove Duplicates
ActiveSheet.Range("A:B").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
'concatenate
Dim data, numrows As Long, result, i As Long, n As Long
If Range("a1") = "" Then Exit Sub
With Range("a1", Cells(Rows.Count, "a").End(xlUp)).Resize(, 2)
.Sort key1:=Range("a1"), Header:=xlNo
data = .Value
numrows = UBound(data)
ReDim result(1 To numrows, 1 To 1)
For i = 1 To numrows
temp = data(i, 1)
result(i, 1) = result(i, 1) & data(i, 2)
For n = i + 1 To numrows
If data(n, 1) = temp Then result(i, 1) = result(i, 1) & ", " & data(n, 2) Else Exit For
Next
i = n - 1
Next
.Offset(, 2).resize(,1) = result
End With
Application.ScreenUpdating = True
End Sub