（將合併單元格中的資料也合併）

比如這是你要合併兩個單元格里的資料,做法如下

A B C

255 8146

在C1單元格里輸入=A1&""&B1

注意,在兩個雙引號裡不能有空格,否則就會變成 255 8146

（多元合併，且保留多元資料）

Sub 合併同類項()

If Selection.Columns.Count > 1 Then MsgBox "只能對單列操作，請重新選擇區域!": Exit Sub

Selection.Offset(0, 1).EntireColumn.Insert

With Selection

For i = .Cells.Count To 2 Step -1

If .Cells(i) = .Cells(i - 1) Then Range(.Cells(i).Offset(0, 1), .Cells(i - 1).Offset(0, 1)).Merge

Next

Selection.Offset(0, 1).Copy

.PasteSpecial xlPasteFormats

.Offset(0, 1).EntireColumn.Delete

End With

End Sub