交作业

鑫旭520

兰校长 交作业！
题目一：
Sub t()
Dim x As Range
For Each x In Selection
If x > 0 Then      'if x.value>0 这个是标准写法
x = "正数"
End If
Next x
End Sub
题目二：
Sub hh()
Dim x As Integer
    Dim y As Integer
    Dim rg As Range
     Set rg = Cells(2, 1)
    For x = 2 To 12
        For y = 1 To 3
            If Cells(x, y) > 0 And Application.WorksheetFunction.IsNumber(Cells(x, y)) Then
                Set rg = Union(rg, Cells(x, y))
            End If
            Next y
        Next x
    rg.EntireRow.Select

End Sub

鱼鱼简澜

啥 东东