說(shuō)明（2018-9-16 22:17:49）：
1. 昨天運(yùn)動(dòng)會(huì)，100米八個(gè)人跑了第五，400米五個(gè)人跑了第三，得了個(gè)榨汁機(jī)。終于結(jié)束了哈哈哈！之前一個(gè)星期緊張的天天拉肚子，真是沒(méi)出息。。不過(guò)養(yǎng)成了每天跑步的習(xí)慣，早上跑個(gè)1000米美滋滋~心率也從100多降到了60多，不過(guò)這也降得太快了吧，才跑了三個(gè)禮拜。。
2. 代碼：
Sub text() Dim rg As Range Set rg = Range("e1") '記得加set Application.DisplayAlerts = False '防止產(chǎn)生合并單元格警告提示框 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 '恢復(fù)提示 End Sub
圖示：
=>
注意：
1. 栽在set手里了，每次給對(duì)象賦值都忘加，唉，又是dim又是set的，真是不喜歡這種語(yǔ)法。
2. Application.DisplayAlerts = False '防止產(chǎn)生合并單元格警告提示框
浙公網(wǎng)安備 33010602011771號(hào)