'自定义公式(宏)-按ALT+11插入模块(符号分隔)Sub 符号分隔()For i = 1 To 1000If Cells(i, 1) = "" ThenExit ForElseCells(i, 1) = WorksheetFunction.Replace(Cells(i, 1), 7, 0, "-")End IfNextEnd Sub
如果你要在原单元格上改变必须要用到宏,代码如上,如果不要求在原单元格,可以用下图方法
你这是字母与数字分隔吗?