本文于2023年8月13日首发于本人同名公众号：Excel活学活用，更多文章案例请搜索关注！
内容提要
- 按同一个项目合并单元格
大家好，我是冷水泡茶，今天在知乎上有一个邀请贴：
他的具体需求可以描述为：把B列相同的人员对应C列工作明细合并到一个单元格里。
感觉不是太复杂，花了点时间模拟了一些数据，写了一个合并单元格的过程，我们一起来看一看吧：
基本思路
1、通过循环，定位到一组相同的记录，记下它的开始行号m与结束行号n。
2、然后，循环开始行号m到结束行号n，把C列的文本连接起来，存到str。
3、把C列单元格m~n合并，填入str。
程序代码
MergeCells，合并同项目对应单元格文字：
Sub MergeCells()
Dim ws As Worksheet
Dim lastRow As Integer
Dim strMerge As String
Set ws = ThisWorkbook.Sheets("Sheet1")
With ws
lastRow = .UsedRange.Rows.Count
For i = 2 To lastRow
If Cells(i - 1, 2) <> Cells(i, 2) Then
m = i
End If
If Cells(i, 2) <> Cells(i + 1, 2) Then
n = i
For j = m To n
strMerge = strMerge & Cells(j, 3) & Chr(10)
Next
strMerge = Left(strMerge, Len(strMerge) - 1)
Range(Cells(m, 3), Cells(n, 3)).ClearContents
Range(Cells(m, 3), Cells(n, 3)).Merge
Cells(m, 3) = strMerge
strMerge = ""
End If
Next
End With
End Sub代码解析：
（1）取得工作表最大已使用行lastRow。
（2）循环2~lastRow，定位到一组相同项目的第一个和最后一个记录的行号m、n。
（3）循环m~n，把对应C列单元格的字符连接成一个字符串strMerge，我们看到问主的结果表中每个记录是换行的，所以我们就加上回车符 Chr(10)，完成后我们发现字符结尾有个空行，那是一个多余的回车符，我们把它再去掉。
（4）接着，把C列m~n行单元格清空，否则合并的时候会蹦出提示，然后把strMerge填入合并后的单元格。
喜欢就点个赞、点在看、留个言呗！分享一下更给力！感谢！
