samwang

¦^´_ 1# abc9gad2016

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub ¿ï¨ú½d³ò²M°£0()
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "²M°£0"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("¿ï¨ú½d³ò²M°£0", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
    If Rng = 0 Then Rng.ClearContents
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub