Question

excel vba批量合并单元格保留内容，

有大量的数据需要合并单元格，并且保留里面的内容，望大神赐下VBA代码~~这个可能要VBA 来做才简单

Answer 1

（将合并单元格中的数据也合并）

比如这是你要合并两个单元格里的数据,做法如下

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

 

3、

Answer 2

亲，重要的是：按什么条件合并单元格？
例如每三行合并、根据某一列相同的数据合并、……
请具体上图看一下。