在VBA的帮助下组合列中的连续值

Sub CombineContinuousValues()
    Dim rng As Range
    Dim cell As Range
    Dim combinedValue As String
    
    ' 设置要操作的列范围
    Set rng = Range("A1:A10")
    
    ' 初始化组合变量
    combinedValue = ""
    
    ' 遍历列中的每个单元格
    For Each cell In rng
        ' 判断当前单元格的值是否与前一个单元格的值连续
        If cell.Value = cell.Offset(-1, 0).Value + 1 Then
            ' 连续，则将当前单元格的值添加到组合变量中
            combinedValue = combinedValue & cell.Value & ","
        Else
            ' 不连续，则输出组合变量的值到另一列，并重新开始组合
            If combinedValue <> "" Then
                ' 输出组合变量的值到另一列
                cell.Offset(0, 1).Value = Left(combinedValue, Len(combinedValue) - 1)
            End If
            ' 重新开始组合
            combinedValue = cell.Value & ","
        End If
    Next cell
    
    ' 输出最后一组连续值
    If combinedValue <> "" Then
        ' 输出组合变量的值到另一列
        rng.Cells(rng.Cells.Count).Offset(0, 1).Value = Left(combinedValue, Len(combinedValue) - 1)
    End If
End Sub