11集配套练习答案

phoenix159

sub 第一题（）
On Error Resume Next
Dim rg As Range
For Each rg In Range(Selection.Address)
If IsNumeric(rg) And rg.Value > 0 And rg.Value <> "" Then
rg = "正数"
End If
Next
end sub
sub 第二题（）
Sub o()
Dim rg As Range
Dim rg1 As Range
Dim x As Integer
Dim y As Integer
Dim i As Integer
i = 0
For x = 2 To 12
  For y = 1 To 3
   Set rg = Cells(x, y)
   If IsNumeric(rg) And rg.Value > 0 And rg.Value <> "" And i = 0 Then
  Set rg1 = Cells(x, y)
  i = i + 1
  GoTo 100
  End If
  If IsNumeric(rg) And rg.Value > 0 And rg.Value <> "" Then
      Set rg1 = Union(rg1, rg)
     End If
   Next y
100:
   Next x
rg1.EntireRow.Select
end sub