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

2024-12-02 18:03:33

推荐回答（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变成多少？