如何合并两个或多个单元格，如果他们在其他单元格上具有相同的内容

我想看看是否有一个更简单的方法通过if（），VBA或数组公式来合并具有相同标题的单元格。 我想要的是，如果名称匹配，在一个单元格中将ID与“，”合并在一起，然后将房间和SF一起合并成一行。

ID Name Rooms Sf 00000121856000000 Dreadfall Apartments 123 44000 00000121865000000 Dreadfall Apartments 115 40000 00000121898000000 Clear Creek 22 11500 00000121897000000 Clear Creek 22 11500 00000121541000000 Clear Creek 23 12500 

我希望它看起来像：

 |00000121856000000, 00000121865000000 | Dreadfall Apartments | 238 | 84000 |00000121898000000,00000121897000000, 00000121541000000| Clear Creek | 67 | 58500 

假设“ID”是A1，“Sf”是D1。 非常感谢！

Answer 1

这将为你做！

 Sub Macro() Dim lngRow As Long For lngRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If StrComp(Range("B" & lngRow), Range("B" & lngRow - 1), vbTextCompare) = 0 Then If Range("C" & lngRow) <> "" Then Range("A" & lngRow - 1) = Range("A" & lngRow - 1) & ";" & Range("A" & lngRow) Range("C" & lngRow - 1) = Range("C" & lngRow - 1) + Range("C" & lngRow) Range("D" & lngRow - 1) = Range("D" & lngRow - 1) + Range("D" & lngRow) End If Rows(lngRow).Delete End If Next End Sub