VBA80集第11集练习题答案上交贴

uooon

我来看看

tanbin1314

1111

zhangfei9621

111

tanbin1314

Sub 第一题()
Range("a1", "c18").Select
     Dim rg As Range
     For Each rg In Selection
         If IsNumeric(rg) = True And rg > 0 Then
             rg.Value = "整数"
         End If
     Next rg
End Sub
Sub 第二题()
   Dim rng As Range
   Dim rg As Range
     For Each rng In Range("a2:c12")
         If IsNumeric(rng) = True And rng > 0 Then
            If rg Is Nothing Then Set rg = rng
            Set rg = Union(rg, rng)
         End If
     Next rng
     rg.EntireRow.Select
End Sub

完美的云

努力学习，努力学习，努力学习，努力学习，努力学习、

lyydzd97

学习

13wcfeng

nice+1

sairuisi

看看答案，谢谢分享

龘鑫森淼焱垚龘

参考大神答题

龘鑫森淼焱垚龘

看看