13-3 合并内容相同的连续单元格

B2_F22

于 2021-04-26 16:46:50 发布

阅读量156

点赞数

分类专栏： VBA 数据分析

本文链接：https://blog.csdn.net/rocket2020/article/details/116161916

版权

数据分析同时被 2 个专栏收录

32 篇文章

订阅专栏

VBA

12 篇文章

订阅专栏

Sub MergeLinkedCells()
	Dim r as Integer
	Dim i as integer
	Application.DisplayAlerts = False
	With Sheet1
		r = .cells(rows.count,1).end(xlup).row
		for i = r to 2 step-1
			if .cells(i,2).value = .cells(i-1,2).value then
				.range(.cells(i-1,2),.cells(i,2)).Merge
			end if
		next
	End With
	application.DisplayAlerts = True
	
End Sub