excel判断第一列若干单元格内容相同，将同行单元格文本内容合并

Question

请问该怎样实现？

Answer 1

这个问题用函数公式达不到，必须使用VBA。
将代码复制到原始数据所在工作表的代码区域中，运行后，会自动添加一个新表，并在新表中写出合并后的数据。
Sub 合并栏目()
Dim D, ROWi As Long, SH As Worksheet
Set D = CreateObject("Scripting.Dictionary")
ROWi = Range("A65536").End(xlUp).Row
For i = 2 To ROWi
If D.EXISTS(CStr(Cells(i, 1).Value)) Then
D(CStr(Cells(i, 1).Value)) = D(CStr(Cells(i, 1).Value)) & Chr(10) & Cells(i, 2)
Else
D(CStr(Cells(i, 1).Value)) = Cells(i, 2)
End If
Next
Set SH = ThisWorkbook.Sheets.Add
With SH
.Cells(2, 1).Resize(D.Count, 1) = Application.Transpose(D.KEYS)
.Cells(2, 2).Resize(D.Count, 1) = Application.Transpose(D.ITEMS)
.Cells(1, 1) = "栏目"
.Cells(1, 2) = "合并数据"
End With
Set D = Nothing
Set SH = Nothing
End Sub

Answer 2

先用辅助列整理数据
C1随意输入一个标题，如“辅助”
C2输入公式
=LEN(B2)
下拉
全选A~C列 -- 数据--排序--主关键字 “订单号” 升序 --次关键字 “辅助” 降序 --确定
D2输入公式
=IF(ISNUMBER(FIND("仓",B2)),"",IF(A2=A3,B2&" "&B3,B2))
下拉
删除C列即可