摘要：
解说：1.在昨天的运动会上，100米的八个人跑了第五名，400米的五个人跑了三名，并得到了一台榨汁机。终于结束了哈哈哈！一周前，我紧张得每天都拉肚子。然而，我已经养成了每天跑步的习惯。早上跑了1000米后，我的心率也从100多降到了60多，但也降得太快了。我只跑了三个星期。。
说明（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 '防止产生合并单元格警告提示框