說明（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 ‘防止產生合並單元格警告提示框

VBA二次學習筆記（3）——批量合並單元格