Gavin與狗（ID：）
01
使用背景
1、VBA簡(jiǎn)介
VBA作為一種宏語言，在Excel、Word、PPT等軟件中可Alt+F11一鍵開啟編寫。免去主流編程語言（如大熱的）安裝時(shí)的復(fù)雜與痛苦，像傻瓜一樣復(fù)制代碼進(jìn)去即可立刻運(yùn)行。堪稱解放辦公室一族的最佳利器！
2、應(yīng)用領(lǐng)域
財(cái)務(wù)（報(bào)表、對(duì)賬單）、法務(wù)（合同）、招投標(biāo)（清標(biāo)、報(bào)告）、日常辦公（打印、批量調(diào)整格式、批量發(fā)送郵件、爬取網(wǎng)頁數(shù)據(jù)）等等各方面涉及軟件的自動(dòng)化操作。
3、本文目標(biāo)解決
編程小白人群的日常辦公——Excel中單元格合并，保留全部?jī)?nèi)容。
02
實(shí)現(xiàn)效果
在日常使用Excel時(shí)，常常需要將多個(gè)單元格的內(nèi)容合并為一，比如下面的情況。
我們通常的想法是使用“合并后居中”的功能。
但可惜的是，只能保留左上角第一個(gè)單元格的內(nèi)容，直接導(dǎo)致需要重新復(fù)制粘貼。
但通過本文附上的代碼，可實(shí)現(xiàn)一鍵合并合并單元格后保留數(shù)據(jù)，保留全部?jī)?nèi)容，而且嵌入在了右鍵選項(xiàng)中，可運(yùn)用所有文檔，一勞永逸。
03
具體步驟
1、新建文件夾，將Gavin提供的Excel加載宏下載（后附下載鏈接）；
2、打開任意Excel文件，在文件-選項(xiàng)-信任中心-信任中心高級(jí)設(shè)置-宏設(shè)置中合并單元格后保留數(shù)據(jù)，選擇啟用所有宏；
3、在開發(fā)工具-Excel加載項(xiàng)中添加本文提供的Excel加載宏。
4、按下Alt+F11打開VBA窗口，再按F5快捷鍵，即可將該功能通用于所有文件。
04
代碼說明
具體代碼如下：
Sub work()
Dim cbr As
Const str As = "合并保留"
Set cbr = .("Cell")
On Error Next
cbr.(str).
With cbr..Add(Type:=, :=3, :=True)
. = str
. = "合并保留"
.Style =
End With
End Sub
Sub 合并保留()
Dim text As
Dim rng As Range
If () = "Range" Then
For Each rng In
text = text & rng.Value
Next rng
. = False
.Merge
.Value = text
. = True
End If
. = True
Set rng =
End Sub
05
擴(kuò)展延伸
有什么想法或建議歡迎留言，可以定制代碼噢~
關(guān)注Gavin與狗，讓你解放雙手！