vba字典合并单元格为空_vba合并单元格并保留值

开发工具选项卡-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