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

发布网友 发布时间:2022-04-20 21:04

我来回答

3个回答

热心网友 时间:2023-06-23 19:47

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

 

热心网友 时间:2023-06-23 19:47

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

热心网友 时间:2023-06-23 19:48

表示没明白你的意思
是说11变成1-1,,12变成1-2,那100变成多少?追问ALT+F11,按了没反应

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com