VBA将A列中相同的数值进行合并，并在合并后的单元格中显示该数值出现的次数

可以将A列中相同的数值进行合并，并在合并后的单元格中显示该数值出现的次数

在这里插入代码片

Sub MergeCellsAndSummarize()
    Dim lastRow As Long
    Dim i As Long
    Dim currentValue As Variant
    Dim mergeStartRow As Long
    Dim mergeEndRow As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    mergeStartRow = 2
    
    For i = 2 To lastRow
        If Cells(i, 1).Value <> currentValue Then
            mergeEndRow = i - 1
            If mergeEndRow >= mergeStartRow Then
                Range("A" & mergeStartRow & ":A" & mergeEndRow).Merge
                Range("B" & mergeStartRow).Value = mergeEndRow - mergeStartRow + 1
            End If
            mergeStartRow = i
            currentValue = Cells(i, 1).Value
        End If
    Next i
    
    mergeEndRow = lastRow
    If mergeEndRow >= mergeStartRow Then
        Range("A" & mergeStartRow & ":A" & mergeEndRow).Merge
        Range("B" & mergeStartRow).Value = mergeEndRow - mergeStartRow + 1
    End If
End Sub