要求：合并第三列相同商品的单元格。
vba合并单元格代码，代码运行如下。
代码分享如下：
Sub 合并单元格()
Dim i% '声明变量
Application.DisplayAlerts = False '关闭Excel系统提示
For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 '循环工作表3列有数值的总行数
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then '判断3列的值是否和上一行相同
Cells(i - 1, 3).Resize(2, 1).Merge '如果相同就合并单元单元格
With Cells(i - 1, 3)
.VerticalAlignment = xlCenter '单元合上下居中对齐
.HorizontalAlignment = xlCenter '单元左右居中对齐
End With
End If
Next
Application.DisplayAlerts = True '回复Excel系统提示
End Sub
如果此分享能帮助到您，请点赞、评论、收藏和转发，谢谢。创作不易请多多支持。