题目1：
sub t1()
dim rg as range
range("a1:c18").select
for each rg in selection
if numeric(rg) and rg >0 then
rg = "正数"
end if
next
end sub
题目2：
Sub t2()
Dim rg As Range, ws As Range
For Each ws In Range("a1:c12")
If IsNumeric(ws) And ws > 0 Then Set rg = ws
Next
For Each ws In Range("a1:c12")
If IsNumeric(ws) And ws > 0 Then
Set rg = Union(rg, ws)
rg.EntireRow.Select
End If
Next
End Sub
楼主: 兰色幻想
[复制链接]
IP卡
狗仔卡
发表于 2017-7-22 15:59
显身卡
