我真不会啊,教教我吧,那个加括号的有个办法没?
追答假设你的这列数据在A列。
右击sheet标签,查看代码,把下面代码贴进去,然后按F5,查看运行结果是否正确,如果正确,删除代码,正常保存表格,然后采纳我的答案。
友情提示:此操作无法回退,请事先保存副本
Sub kuohao()
Dim a%, b%
Dim rng As Range
b = Range("a" & 2 ^ 20).End(xlUp).Row
For Each rng In Range("a1:a" & b)
a = InStrRev(rng, "-")
rng.Value = "(" & Left(rng, a + 1) & ") " & Right(rng, Len(rng) - a - 2)
Next
End Sub
就是把前面的2-1-1这些加上括号
追答我理解那是序号。。那楼主看看,序号与后面的说明文字之间,是否都有空格?需要找个规律出来
本回答被网友采纳