excel vba 自动合并单元格

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

我来回答

3个回答

热心网友 时间:2023-09-23 00:05

(将合并单元格中的数据也合并)

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

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、

热心网友 时间:2023-09-23 00:05

Sub test()
Dim i%
For i = 15 To 2 Step -1
    If Cells(i, 1) = "" Then Range("a" & i - 1 & ":a" & i).Merge
Next
End Sub

热心网友 时间:2023-09-23 00:06

合并excel机器人可以自动将同一文件夹中的excel按自定义行数进行合并。合并excel:https://store.uibot.com.cn/robots/detail/918.html

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com