VBA二次学习笔记(3)——批量合并单元格

时间:2024-08-08 11:05:32

说明(2018-9-16 22:17:49):

1. 昨天运动会,100米八个人跑了第五,400米五个人跑了第三,得了个榨汁机。终于结束了哈哈哈!之前一个星期紧张的天天拉肚子,真是没出息。。不过养成了每天跑步的习惯,早上跑个1000米美滋滋~心率也从100多降到了60多,不过这也降得太快了吧,才跑了三个礼拜。。

2. 代码:

Sub text()
Dim rg As Range
Set rg = Range("e1") '记得加set
Application.DisplayAlerts = False '防止产生合并单元格警告提示框
For i = To
If Range("e" & i).Value = Range("e" & i + ).Value Then
Set rg = Union(rg, Range("e" & i + )) '记得加set
Else rg.Merge
Set rg = Range("e" & i + ) '记得加set
End If
Next i
Application.DisplayAlerts = True '恢复提示
End Sub

图示:

VBA二次学习笔记(3)——批量合并单元格=>VBA二次学习笔记(3)——批量合并单元格

注意:

1. 栽在set手里了,每次给对象赋值都忘加,唉,又是dim又是set的,真是不喜欢这种语法。

2. Application.DisplayAlerts = False '防止产生合并单元格警告提示框