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

707808067 · 发表于 2017-8-22 13:23

Sub test1()
Intersect(Columns("a"), Columns("b:d").SpecialCells(xlCellTypeConstants).EntireRow).Select
Selection = 1
End Sub

707808067 · 发表于 2017-8-22 13:25

csmccdh 发表于 2011-7-6 18:25
不好意思，我开始忘用回复可见了！

**** 本内容被作者隐藏 ****

说了不能用循环啊

ejieke · 发表于 2017-8-24 17:26

答案

zhangdongdong · 发表于 2017-8-24 21:20

想看看答案

OkBosch · 发表于 2017-8-25 09:26

学

luozheng · 发表于 2017-8-25 12:03

学习学习

lin8980428 · 发表于 2017-8-27 08:30

看看答案

明日之星 · 发表于 2017-8-28 05:57

学习下

pk30 · 发表于 2017-8-28 19:54

xlCellTypeConstants

然然的然然 · 发表于 2017-8-28 21:01

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