【VBA】合并单元格 + 撤销合并单元格

合并单元格

原始表

希望效果

需要达到以上效果我们可以先分析一下我们在表中会如何操作：

• 1.对年级列进行排序
• 2.合并相同的年级列
• 3.合并总分列使其格式和年级列一致
• 4.将各个年级对应的分数进行累加

那么现在写出对应的VBA代码

• 1

整张表.sort 年级列，xlAscending , Header:=xlYes 

• 2

if cells(某行,某列).values = cells(某行 - 1,某列) then
	range(cells(某行,某列),cells(某行-1,某列)).Merge

• 3

range(cells(某行,某列),cells(某行-1,某列)).Merge

• 4

Cells(总分列) = Cells(总分列) + Cells(分数列).Value

• 完整代码

Sub 合并单元格()
Dim a, b As Integer, d As Range
Application.DisplayAl