vba合并单元格并保留值 _2016

日常的工作中会用到不异的数据为了美不雅需要进行归并，但因为后面公式需要，需保留单位格内容，今天禀享下利用VBA归并不法则单位格并保留值的方式：

文章插图

需要这些哦
Excel 2016
方式/
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).(xlUp).Row
If Cells(i, n) = Cells(i + 1, n) Then
Cells(i, n).Offset(0, 1).Resize(2, 1).Merge
If
Next i
With Range(Cells(1, n), Cells(Cells(Rows.Count, n).(xlUp).Row, n))
【vba合并单元格并保留值】 .Offset(0, 1).Copy
.PasteSpecial xlPasteFormats
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Offset(0, 1).EntireColumn.Delete
With
Application.ScreenUpdating = True
Sub