合并单元格,只改变第一列,且第一列和其他列对应关系不能改变。数据比较...

发布网友发布时间：2024-08-20 17:17

共1个回答

热心网友时间：2024-08-24 08:27

亲，这个只好用VBA编程解决了。由于你的截图没有行号和列号，只好猜着写。

假如你要合并的是A列。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub hb()
Dim rg, rgunion As Range
Set rgunion = Range("A1")
Application.DisplayAlerts = False
For Each rg In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If rg = rg.Offset(-1, 0) Then
        Set rgunion = Union(rgunion, rg)
    Else
        rgunion.MergeCells = True
        Set rgunion = rg
    End If
Next
rgunion.MergeCells = True
Application.DisplayAlerts = True
End Sub