Excel VBA：如何将固定格式的字母数字序列号转换为符合要求的连续区间列表

核心问题根因 #

你当前的逻辑缺少连续序列长度判断规则：你要求仅连续≥3个的序列号才合并为区间格式，2个连续的序列号直接单独展示即可，原有逻辑只要连续就合并，才会出现不符合预期的结果。

优化实现逻辑 #

步骤1：优化数值提取逻辑 #

无需判断末尾3/4位是否为数字，因为序列号前4位为固定前缀，直接取第5位及之后的所有字符转数值即可，代码更简洁稳定：

' 提取数值示例，sn为单元格中的序列号
Dim num As Long
num = CLng(Mid(sn, 5))

步骤2：连续序列分组 #

遍历排序后的序列号，按「相邻数值差为1」的规则分组，同时记录每组的：

• 起始数值
• 结束数值
• 组内元素数量

步骤3：按规则格式化输出 #

根据每组的长度选择对应展示格式：

• 组长度=1：直接输出完整序列号
• 组长度=2：分别输出组内两个完整序列号，不合并
• 组长度≥3：输出「前缀+起始数值~前缀+结束数值」的区间格式

VBA完整实现代码 #

Sub MergeSerialNumbers()
    Dim lastRow As Long, i As Long
    Dim prefix As String
    Dim currentNum As Long, startNum As Long, groupCount As Long
    Dim result As String
    
    ' 读取数据前先按A列升序排序，避免乱序
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1:A" & lastRow).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
    
    ' 初始化参数，前缀固定为前4位
    prefix = Left(Cells(1, "A").Value, 4)
    startNum = CLng(Mid(Cells(1, "A").Value, 5))
    groupCount = 1
    result = ""
    
    ' 从第二行开始遍历
    For i = 2 To lastRow
        currentNum = CLng(Mid(Cells(i, "A").Value, 5))
        ' 判断是否和前一个连续
        If currentNum = startNum + groupCount Then
            groupCount = groupCount + 1
        Else
            ' 处理上一个分组
            result = result & FormatGroup(prefix, startNum, groupCount) & " "
            ' 重置新分组参数
            startNum = currentNum
            groupCount = 1
        End If
    Next i
    ' 处理最后一个分组
    result = result & FormatGroup(prefix, startNum, groupCount)
    
    ' 输出结果到B1单元格，可自行修改输出位置
    Cells(1, "B").Value = Trim(result)
End Sub

' 分组格式化函数
Function FormatGroup(prefix As String, startNum As Long, count As Long) As String
    Dim endNum As Long
    endNum = startNum + count - 1
    Select Case count
        Case 1
            FormatGroup = prefix & Format(startNum, "0000") ' 按末尾4位补前导零，可根据实际长度调整
        Case 2
            FormatGroup = prefix & Format(startNum, "0000") & " " & prefix & Format(endNum, "0000")
        Case Is >= 3
            FormatGroup = prefix & Format(startNum, "0000") & "~" & prefix & Format(endNum, "0000")
    End Select
End Function

效果验证 #

用你提供的示例序列号运行代码，输出结果为：

0O6X6768 0O6X6769 0O6X7468~0O6X7470 0O6X7477~0O6X7479 0O6X7482 0O6X9383

和你预期的展示效果完全一致。

内容的提问来源于stack exchange，提问作者Relaxing