Question

Excel VBA相同单元格内容自动合并

求写一段VBA代码可以将“Sheet1"的A列单元格的内容，按照单元格内容相同自动合并到“Sheet2"A列单元格





Answer 1

Public Sub 顺序合并内容相同单元()
    Dim CXrng As Range, Rng As Range, i As Long
    Set Rng = Sheets("sheet2").Range("A1")
    For Each CXrng In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Range("A65536").End(xlUp).Row)
        If CXrng.Value <> Rng.Value Then
            If i <> 0 Then Rng.Resize(i, 1).Merge
            Set Rng = Sheets("sheet2").Range("A" & CXrng.Row)
            Rng.Value = CXrng.Value
            i = 1
        Else
            i = i + 1
        End If
    Next
    If i <> 0 Then Rng.Resize(i, 1).Merge
End Sub