发布网友 发布时间: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,按了没反应