11集答案

胡小仙

Sub 选取()
Dim rg As Range
For Each rg In Range("a2:c12")
If IsNumeric(rg) And rg > 0 Then rg = "正数"
Next rg
End Sub