先找出重复值:先选择数据然后点击开始-条件格式-突出显示单元格规则-重复值
2.相邻的重复值可以合并居中,但是不是相邻的则无法合并,方法是选择二个相邻的重复值然后点击上方的合并后居中并确认即可。
先选中要合并的项,鼠标右键,‘’设置单元格格式‘’,就有合并居中的选项;
或者,分别选中WD,RF,KI后,依次在‘‘开始’’‘--〉‘对齐方式’里面设置 就好了……。
Sub 合并相同单元格()
'请先选择一整列
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With Selection
.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(1), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True '分类汇总
.Offset(, -1).SpecialCells(xlCellTypeBlanks).Merge '合并空白单元格
.RemoveSubtotal '删除分类汇总
.Offset(, -1).Copy
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False '格式刷
.Offset(, -1).Delete Shift:=xlToLeft '删除列
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub