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

B2_F22

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

阅读量160

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 数据分析

本文链接：https://blog.youkuaiyun.com/rocket2020/article/details/116161916

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

32 篇文章

订阅专栏

VBA

12 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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