关於Excel的问题

来源：百度知道 编辑：UC知道 时间：2024/06/08 15:21:57
请教哪位高手:我有这样一种情况,从A1到A10裏的的值或资料相同,从A11到A20又是另外相同的值,这样相同值的并不单元格有很多组,我想用一段代码来达到以下功能,就是做成一个快捷键,只需要单击可以将A列有相同的数据的单元格全部合并置中.当然那些有相同资料的单元格都是相邻的.而且每组间也没有空格.先谢谢!

Sub 合并居中()
Application.DisplayAlerts = False
For R = [A65536].End(xlUp).Row To 2 Step -1
X = R - 1
If Cells(R, 1) = Cells(X, 1) Then Range(Cells(R, 1), Cells(X, 1)).Merge
Next
Application.DisplayAlerts = True
End Sub

BTW：合并单元格尽量少用，会给数据的统计计算带来很大的麻烦。