VBA80集第12集作业上交贴：非空行

诺力卡

只会第一题，来学习一下

宁致贤

学习了

迟来的上进心

学习一下

oceanone

来对比一下答案 看看有没有新思路

海底饼干碎

第一题：Sub e() Dim rg As Range
Dim rg1 As Range
Dim rg2 As Range
Set rg1 = Range("B1:D10").SpecialCells(xlCellTypeConstants).EntireRow
Set rg2 = Columns("A:A")
Set rg = Intersect(rg1, rg2)
If rg Is Nothing Then
Range("A1:A10") = ""
Else
rg = 1
End If
End Sub

ign0re

看看

offlinepenguin

kk

Jerry鸽

我就是来看看什么作业，然后学习学习！

wj65134

感谢老师，我来看看答案

思霖

学习