excel 合並相同內容的單元格 vba

合並數據內容相同的連續單元格（VBA）

[ V.S.林 原創,轉載請注明出處 ]

Sub mergecell()

  Dim rng1, rng2 As Range

  Dim i, j As Long

  On Error Resume Next

  Application.DisplayAlerts = False

  Set rng2 = Application.InputBox("選擇單元格區域:", "合並連續相同內容單元格", , , , , , 8)

  Set rng1 = Application.Intersect(ActiveSheet.UsedRange, rng2)

  For i = 1 To rng1.Cells.Count + 1

    For j = i + 1 To rng1.Cells.Count + 1

      If rng1.Cells(i) <> rng1.Cells(j) Then

        Range(rng1.Cells(i), rng1.Cells(j - 1)).Merge

        Exit For

      End If

    Next

    i = j - 1

  Next

  Application.DisplayAlerts = True

End Sub

 

V.S.EXCEL_VBA