VBA二次學習筆記(3)——批量合並單元格
阿新 • • 發佈:2018-09-17
false spl png next com src 了吧 merge 昨天
說明(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 IfRange("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)——批量合並單元格