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

最新推荐文章于 2025-04-29 17:33:00 发布

原创最新推荐文章于 2025-04-29 17:33:00 发布 · 171 阅读

0 ·

CC 4.0 BY-SA版权

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

32 篇文章

订阅专栏

VBA

12 篇文章

订阅专栏

这是一个关于Excel自动化处理的脚本，用于批量合并Sheet1中第二列内连续相同值的相邻单元格。该过程从最后一行开始向上遍历，如果发现当前行与前一行的第二个单元格值相同，则进行合并操作。最后恢复显示警告设置。

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