Sub question1()
Dim rg As Range
For Each rg In Range("A2").Resize(5, 3)
If IsNumeric(rg) = True And rg > 0 Then
rg = "ÕýÊý"
End If
Next
End Sub
Sub question2()
Dim rg As Range
For Each rg In Range("A2:C12")
If IsNumeric(rg) = True And rg > 0 Then
rg.EntireRow.Select
End If
Next
End Sub
高人指点一下第二题哪里不对啊?
Sub question2()
Dim rg As Range, str
For Each rg In Range("A2:C12")
If IsNumeric(rg) = True And rg > 0 Then
str = str & rg.Row & ":" & rg.Row & ","
End If
Next
Range(Left(str, Len(str) - 1)).Select
End Sub