­ã´£³¡ªL

Sub ¨ú®øµÛ¦â()
Dim Sh As Worksheet, c As Range
Set Sh = Workbooks("¨ú®øµÛ¦â.xlsx").Sheets("2" & "")
Sh.Activate
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row '®Æ¸¹
Set xRng = Range("J4:Y" & xRow)
For Each c In xRng
    If c > 0 Then
       c.Interior.ColorIndex = xlNone '¨ú®øµÛ¦â
    End If
Next
End Sub