视图--> 宏 ,如果没有,就新建一个宏内容如下:
选中数据区域执行宏 Replace2
Sub Replace2()
For Each a In Selection
a.Value = Replace(a.Value, "/", "-")
Next
End Sub
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24558279/viewspace-767113/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/24558279/viewspace-767113/