vba合并單元格并保留值

日常的工作中會用到不異的數據為了美不雅需要進行歸并，但因為后面公式需要，需保留單位格內容，今天稟享下利用VBA歸并不法則單位格并保留值的方式：

東西/原料

1
起首打開需要進行歸并內容的工作表，以下面表格為例：
2
開辟東西選項卡-Visual Basic，在工程窗口右鍵插入一個模塊，將以下代碼復制到代碼窗口：
Sub 歸并單位格()
Dim n As Integer, i As Integer
Application.ScreenUpdating = False
Set a = Application.InputBox("請選擇需要歸并的地點列", "提醒框", , , , , , 8)
n = a.Column
Cells(1, n).Offset(0, 1).EntireColumn.Insert
For i = 1 To Cells(Rows.Count, n).End(xlUp).Row
If Cells(i, n) = Cells(i + 1, n) Then
Cells(i, n).Offset(0, 1).Resize(2, 1).Merge
End If
Next i
With Range(Cells(1, n), Cells(Cells(Rows.Count, n).End(xlUp).Row, n))
.Offset(0, 1).Copy
.PasteSpecial xlPasteFormats
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Offset(0, 1).EntireColumn.Delete
End With
Application.ScreenUpdating = True
End Sub
3
點擊運行按鈕，會彈出一個選擇歸并單位格地點列的對話框，選擇需要歸并的列，點擊確定即可。
4
此刻我們查抄看看是否歸并了單位格而且內容還在呢？點擊打消歸并后，原單位格的數據還在。
5
以上就是經由過程vba歸并單位格并保留值的方式了。具體方式是經由過程在需要歸并的列右邊插入一列，并判定合適歸并的內容，在右邊對應列進行歸并，再經由過程復制，粘貼格局到現實需要歸并的單位格中。