Excel VBA小程序-替换0值

最新推荐文章于 2022-07-23 12:15:58 发布

牧文山

最新推荐文章于 2022-07-23 12:15:58 发布

阅读量942

点赞数 1

分类专栏： VBA 文章标签： excel vba

本文链接：https://blog.csdn.net/weixin_42750611/article/details/108417940

版权

VBA 专栏收录该内容

14 篇文章 14 订阅

订阅专栏

1、替换当前工作表的0值

Sub 替换0值()

With ActiveSheet.UsedRange
.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True,ReplaceFormat:=True
End With

MsgBox "成功了"

End Sub

2、替换所有工作表的0值

Sub 替换0值()
Dim Sh As Worksheet

For Each sht In ThisWorkbook.Worksheets
    With sht.UsedRange
		.Replace What:="0", Replacement:="", LookAt:=xlWhole, 	SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True,ReplaceFormat:=True
	End With
Next

MsgBox "成功了"

End Sub