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

tianmm · 发表于 2022-7-10 21:44

我不知道呀发表于 2011-7-6 17:24
**** 本内容被作者隐藏 ****

学习

leola · 发表于 2022-7-11 19:42

看看

JQQQ · 发表于 2022-7-13 16:39

学习

诺力卡 · 发表于 2022-7-15 22:15

学习

诺力卡 · 发表于 2022-7-15 22:17

只会第一题，来学习一下

宁致贤 · 发表于 2022-7-18 21:25

学习了

迟来的上进心 · 发表于 2022-7-20 10:53

学习一下

oceanone · 发表于 2022-7-20 12:43

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

海底饼干碎 · 发表于 2022-7-25 15:54

第一题：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

		自动登录	找回密码
密码			注册