请将鼠标移至工作表标签处,并右键点击以查看代码。在代码中,将冒号和半角转换统一起来。以下是修改后的代码示例:
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
完成后,请按以下步骤操作:1. 关闭代码编辑器。2. 按下ALT+F8打开宏管理器。3. 在宏管理器中找到并运行"清除"宏。请确保您已保存并修订过该代码,以避免意外丢失更改。如果需要进一步帮助或有其他问题,请随时告诉我。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号