3表格单元格合并_Excel 必学秘籍3秒实现你想要的单元格合并及计算

戳上面的蓝字关注，以便获取更多实用代码

单元格合并在excel表格操作中是非常常见的，它通常还和数据统计、数据计算组合使用。

我们来对照一下原表及效果表，看得出来，首先是需要将村名列进行合并，然后统计每个村有多少条数据，再求和计算每个村补贴发放金额。

要实现这种效果，常规操作效率是非常低下的，而用VBA代码，同样可以3秒钟完成这项工作。

Sub 合并()

Dim ln%, i%, k%, j

Application.DisplayAlerts = False

ln = [A65536].End(xlUp).Row

k = 1

j = 0

For i = ln To 4 Step -1

If Cells(i, 2) = Cells(i - 1, 2) Then

k = k + 1

j = Cells(i, 5) + j

Range(Cells(i - 1, 2), Cells(i, 2)).Merge

Range(Cells(i - 1, 7), Cells(i, 7)).Merge

Cells(i - 1, 7) = k

Range(Cells(i - 1, 8), Cells(i, 8)).Merge

  Cells(i - 1, 8) = Cells(i - 1, 5) + j

Else

k = 1

j = 0

    If i <> 4 Then

        Cells(i - 1, 8) = 0

    End If

End If

Next

Application.DisplayAlerts = True

End Sub

本视频中的人员姓名及身份证号等所有信息均属虚构用以举例，如有雷同，纯属巧合.附视频中所需要用到的代码，欢迎关注。

更多推荐 Excel必学秘笈-3秒钟制作比“工资条”更复杂的补贴发放“明白条” Excel必学秘笈-3秒钟将Excel表格中所有人员姓名中间字及身份证号中的出生日期用“*”替代 凤凰、张家界三天两晚免费游记实(二)-揭秘凤凰、张家界三天两晚免费游 揭秘凤凰、张家界三天两晚免费游(大结局)-免费游第三天及感想 凤凰、张家界免费游记实(揭秘一) 祁东黄花-萱草不谢，百合不开

支持我们请点在看↓↓↓