excel表内数据，连号的如何划自动划分

2024年12月02日 18:03

有3个网友回答

网友（1）：

ALT+F11 打开VBE 编辑器 粘贴代码         选中数据所在单元格 运行此宏
Sub 分拆重组()
sr = ActiveCell.Value
arr = Split(sr, ".")
sr1 = ""
For i = 1 To UBound(arr)
If arr(i) - arr(i - 1) > 1 Then
sr1 = sr1 & "-" & arr(i - 1) & ";" & arr(i)
End If
Next
ActiveCell = arr(0) & sr1 & "-" & arr(UBound(arr))
End Sub

网友（2）：

您这问题解决了吗？求方法

网友（3）：

表示没明白你的意思
是说11变成1-1，,12变成1-2，那100变成多少？

最新问答

2010年海南中考难不难？那一科目最简单？哪一科目最难？

郑智化的《寒雨曲》歌词

AHCI硬盘模式下装的XP系统，运行正常，装个AHCI驱动却蓝屏

一种衬衫上印的图案，是一个红心上有两只大眼睛的，这种衣服的牌子是什么？

我喜欢一个女生我向他表白她说考虑考虑我该怎么做

谁能推荐几部好看点的电视剧—⼀都市⼀言情类的；

移动通信中的PDP Contexts是什么意思？全称是什么？

唐山大地震中的小王登的资料

青春期男性的乳晕在不受刺激（不皱缩，即坦平）时一般多大？此时乳头也陷在里面吗？

PHP中两个命令中间的“&&”是什么意思（不是在if等条件中）