VBA二次学习笔记(3) | 您所在的位置:网站首页 › vba批量合并单元格的代码 › VBA二次学习笔记(3) |
说明(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 = 1 To 12 If Range("e" & i).Value = Range("e" & i + 1).Value Then Set rg = Union(rg, Range("e" & i + 1)) '记得加set Else rg.Merge Set rg = Range("e" & i + 1) '记得加set End If Next i Application.DisplayAlerts = True '恢复提示 End Sub图示: => 注意: 1. 栽在set手里了,每次给对象赋值都忘加,唉,又是dim又是set的,真是不喜欢这种语法。 2. Application.DisplayAlerts = False '防止产生合并单元格警告提示框 |
CopyRight 2018-2019 实验室设备网 版权所有 |