Excel中如何将不同例的单元格的内容合并在成一例且用回车符分开?

发布网友发布时间：2022-04-29 15:56

共1个回答

热心网友时间：2022-06-17 22:32

这个问题用函数公式达不到，必须使用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