鼠标移至这个工作表的标签处,右键,查看代码,将下述代码复制进去
我不知你的冒号是全角还是半角,自己在代码中改成一致就行
Sub 清除()
Cells.Replace What:=":", Replacement:=""
Cells.Replace What:="0", Replacement:=""
Cells.Replace What:="1", Replacement:=""
Cells.Replace What:="2", Replacement:=""
Cells.Replace What:="3", Replacement:=""
Cells.Replace What:="4", Replacement:=""
Cells.Replace What:="5", Replacement:=""
Cells.Replace What:="6", Replacement:=""
Cells.Replace What:="7", Replacement:=""
Cells.Replace What:="8", Replacement:=""
Cells.Replace What:="9", Replacement:=""
End Sub
退出后,ALT+F8,运行清除宏
选中区域,复制,粘贴到WORD文档中,按CTRL+A全选,按CTRL+H弹出替换对话框,查找后面输入
[0-9,;]
替换为后面不输入,下面点击“更多”选项,勾选“使用通配符”,全部替换,再复制回EXCEL中。
去掉冒号,可以用替换。将冒号替换成无,数字没有办法
不如copy到ultraedit里面,然后用正则表达式搜索替换掉
;替换 替换为空白 数字从0-9依次全部替换