[已解决]把【表2】的B列和C列数据合并单元格转成【表3】的式样。

jiali0208

把【表2】的B列和C列数据合并单元格转成【表3】的式样。

最佳答案

月排行榜 / 总排行榜

hasyh2008

2022-5-30 23:03

试试看！！

跳转到最佳答案楼层

hasyh2008

Sub 合并内容相同的连续单元格()
    Dim I As Integer
    Dim Rc%
    Dim Rng As Range
    On Error Resume Next
    Application.DisplayAlerts = False
    Rc = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row
    With Sheet2.Range("B5:B" & Rc)
      For I = .Cells.Rows.Count To 1 Step -1
        If .Cells(I - 1, 1).Value = .Cells(I, 1).Value Then
            Set Rng = Union(.Cells(I - 1, 1), .Cells(I, 1))
            Rng.Offset(0, 1).Merge
            Rng.Merge
            Set Rng = Nothing
        End If
      Next
    Application.DisplayAlerts = True
    End With
End Sub

jiali0208

hasyh2008 发表于 2022-5-30 22:32
Sub 合并内容相同的连续单元格()
    Dim I As Integer
    Dim Rc%

非常感谢老师，老师，帮我在增加个代码，进行还原，就是来回切换！

18839208898

楼上老师 我的求助帖也给看一下把

hasyh2008

试试看！！

jiali0208

hasyh2008 发表于 2022-5-30 23:03
试试看！！

非常感谢老师，再次感谢老师的帮助，真是我需要的！谢谢！