我的目標:讓中國的大學生走出校門的那一刻就已經具備這些Office技能,讓職場人士能高效使用Office軟體為其服務。支持我,也為自己加油!
在Excel中取消合併單元格且把原來合併單元格中的值填充到取消合併後的空白單元格中,這種操作是很常見的,比如:
Sub 批量取消合併單元格()Dim rng As Range, i%, vrradr = Split(Selection.Address, ",")For i = 0 To UBound(adr) Set rng = Range(adr(i)) If rng.MergeCells = False Then Exit For vrr = rng.Value With rng .UnMerge .Value = vrr(1, 1) End WithNextEnd Sub很簡單,利用Split函數分離各個合併單元格區域,然後循環每個合併單元格區域取消合併並完成填充。利用OnKey事件,當工作簿打開時利用OnKey事件把程序「批量取消合併單元格」指定給快捷鍵「Ctrl+W「。關注以下公眾號,點擊,服務→雲課堂,
系統學習Office知識,
購買的課程包素材和答疑哦!