（將合併單元格中的資料也合併）比如這是你要合併兩個單元格里的資料,做法如下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 WithEnd Sub