金融白領都不知道的合并相同單元格內容

一直關注和學習SUT事務所推送的文章的小夥伴一定還記得前期為大家分享了一篇類似的文章【Excel VBA】- 合并相同屬性區域。建議未學習的小夥伴先學習一下，和今天的文章加以對比，充分掌握合并相同屬性和單元格內容。

昨天同事正在整理營業部所屬分公司信息，需要對相同城市的單元格內容進行批量合并，因為數據比較機密，所以我模擬了一份類似的需求，數據截圖如下：

該同事的需求轉換而來就是對上圖中的F列進行相同單元格合并，得到如下圖所示的效果：

為了更加直觀的展現，對相同單元格數據進行合并後，數據一下子簡明了許多。那究竟該如何對批量數據進行合并相同單元格呢？今天為大家介紹2種方法，可以很方便的解決此類問題。

方法一 數據透視表

對於需要把相同單元格內容進行合并，第一反應就可以通過數據透視表來實現，具體方法請見如下動態圖：

GIF/2K

通過數據透視表的方法還算簡單，但有幾點需要注意：

A 設置數據透視表【選項】，勾選【合并並居中排列帶標籤的單元格】；

B 依次選擇【設計】【分類匯總】【不顯示分類匯總】；

C 依次選擇【設計】【報表布局】【以表格形式顯示】；

方法二 VBA代碼

需要批量操作的，怎麼能少了VBA呢，VBA就是為了效率而生，代碼如下：

Option Explicit

Sub合并相同單元格內容()

DimiColumn, i As Integer

iColumn= Application.InputBox("請輸入需要合并數據所在列（數字）：" & Chr(10) & Chr(10) & "QQ群：615356012" & Chr(10) & "微信公眾號：SaveUTime", "SUT事務所：Writed by Steven^_^", Type:=1)

IfiColumn= False Then Exit Sub

Application.DisplayAlerts = False

For i = [A65536].End(3).Row To 2 Step -1

If Cells(i - 1,iColumn) = Cells(i,iColumn) Then

With Range(Cells(i - 1,iColumn), Cells(i,iColumn))

.Merge

.VerticalAlignment = xlCenter

End With

End If

Next

Application.DisplayAlerts = True

End Sub

有了代碼，只需要打開VBE（宏編輯器），依次選擇【插入】【模塊】，雙擊新建的模塊1，把代碼拷貝到模塊1中。可以直接按下鍵盤上的F5鍵或點擊綠色運行宏按鈕，如果不希望在VBE中操作，也可在工作表中插入一個按鈕或插入一個圖形，把宏綁定到按鈕或圖形上即可點擊運行。接下來演示一下代碼運行效果：

GIF/2K

滑鼠點擊圖形後，會彈出如下對話框：

PS：上圖中的換行通過Chr(10)來實現，類似在Excel單元格中的強制換行Alt+Enter快捷鍵！

該對話框限制了，只接受數字，如果輸入字母或漢字，會提示無效數字。該限制來自於Application.InputBox的Type屬性，從上面代碼可以看到，我設置Type屬性為1，就限定了輸入的內容必須是數字。如果希望了解更多，可以在VBE中選擇InputBox後，按下鍵盤上的F1鍵，會打開該方法的相關幫助信息，大致截圖如下圖所示：

上圖是通過軟體FastStone Capture滾動截圖而來，可以通過文章【截圖軟體】- FastStone Capture，一款讓您愛不釋手的截圖、錄像軟體進行溫習哦。

後期文章附帶的素材，大家都可以通過在公眾號回復該文檔發送的日期得到，歡迎下載學習^_^

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！