如何简化连续编号

aman1516 · 发表于 2024-11-9 15:25

本帖最后由 aman1516 于 2024-11-9 15:47 编辑

一些带字母的地址编号、序号什么的，若有连续的号码，则将连续部分转化为 " XXn ：YYm" 的格式：
微信截图_20241109154452.png

附件是用了个笨办法转换判断，但结果出错，请老师们看下是什么问题，或有什么更好的方法，谢谢！

合并连续序号.rar (18.6 KB, 下载次数: 18)

准提部林 · 发表于 2024-11-9 16:22

連續單元格//狗尾續貂...by.准提部林

Xl0000307(連續單元格).rar (14.05 KB, 下载次数: 8)

cidanji · 发表于 2024-11-9 16:25

本帖最后由 cidanji 于 2024-11-9 16:34 编辑

Function ss(str)
ss = Union(Range(Split(str, ",")(0)), Range(str)).Address(0, 0)
End Function

复制代码

longwin · 发表于 2024-11-9 16:34

本帖最后由 longwin 于 2024-11-9 16:37 编辑

Public Function SumStr2(str As String)
Dim sr, s, s1, a, b As String
sr = Split(str, ",")
a = sr(0): s = "=SUM(" & a: n = 1
s1 = s
For t = 1 To UBound(sr)
b = sr(t)
If ExtNum(b) <> ExtNum(a) + 1 Then
      s = s & "," & b
      s1 = s
Else
      s = s1 & ":" & b
End If
a = b
Next
SumStr2 = s & ")"
End Function

longwin · 发表于 2024-11-9 16:37

附件供参考。。。。。

ynzsvt · 发表于 2024-11-9 17:12

就最后一步改了改。

cnmlgb9998 · 发表于 2024-11-9 17:34

用PQ解决，香不香？？？？？？？？？？

捕获2.JPG

一招秒杀 · 发表于 2024-11-9 19:21

简单示意，1句4行，这个如何

aman1516 · 发表于 2024-11-9 19:25

准提部林发表于 2024-11-9 16:22
連續單元格//狗尾續貂...by.准提部林

文件损坏，还是感谢关注

aman1516 · 发表于 2024-11-9 19:30

本帖最后由 aman1516 于 2024-11-9 20:43 编辑

cidanji 发表于 2024-11-9 16:25

非常巧妙的方法！但仅适合符合单元格式字母与数字组合的字符串，非单元格字母前缀，或字母后缀时，就会有限制了
原示例数据未列出以下情况，补充一下：

		自动登录	找回密码
密码			免费注册

[求助] 如何简化连续编号

评分

评分

评分