用VBA EXCEL大量合并单元格，合并单元格内容保留

发布网友发布时间：2022-04-22 10:33

我来回答

共3个回答

热心网友时间：2023-11-01 16:07

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

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

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

Selection.Offset(0, 1).Copy

.PasteSpecial xlPasteFormats

.Offset(0, 1).EntireColumn.Delete

End With

End Sub

3、

热心网友时间：2023-11-01 16:08

代码如下：

Sub aaa()
For i = 2 To Range("L65536").End(xlUp).Row
  If Cells(i, "K") <> "" Then
  j = i
    Else
   Cells(j, "M") = Cells(j, "M") & Chr(10) & Cells(i, "M")
   Cells(j, "L") = Cells(j, "L") & Chr(10) & Cells(i, "L")
   Application.DisplayAlerts = False
   For r = 1 To 13
     Range(Cells(j, r), Cells(i, r)).Merge
   Next
   Application.DisplayAlerts = True
  End If
Next
End Sub

热心网友时间：2023-11-01 16:08

我先来看看你的具体要求。

全部栏目

用VBA EXCEL大量合并单元格，合并单元格内容保留