如何将连续的号码用区间的形式表示？

作者：绿色风分类：时间：2022-08-17 浏览：90

楼主 omnw	Q：如何将连续的号码用区间表示？ A：如下代码可以将现有的号码中连续的号码用区间的方式展示出来。 Sub 按钮1_Click() Dim i As Long Dim str As String On Error Resume Next For i = 2 To [D65536].End(xlUp).Row + 1 If Cells(i, 4) - Cells(i - 1, 4) <> 1 Then If Right(str, 1) = "-" Then str = str & Cells(i - 1, 4) [E65536].End(xlUp).Offset(1, 0) = str str = Cells(i, 4) Else If Right(str, 1) <> "-" Then str = str & "-" End If Next i End Sub 注意：本程序仅针对号码全部由数字构成，运行程序前需对原始号码区域按照由小到大的顺序排序。号码区间.rar
2楼 rzz8118	请教楼主，如果把上述自动生成的区间改成像“****-”（如 003085821-824）这种形式，如何修改，谢谢
3楼 rzz8118	请教楼主，如果把上述自动生成的区间改成像“****-”（如 003085821-824）这种形式，如何修改，谢谢
4楼 wcm_xp	感谢楼主

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表