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

zx_wl · 发表于 2011-9-25 21:39

回复我不知道呀的帖子

你好厉害{:091:}

zx_wl · 发表于 2011-9-25 21:45

这里高手真多,怎么学的?是不是我太笨了?

zx_wl · 发表于 2011-9-26 20:28

看了别人的答案,还不太懂,难过死了.

zx_wl · 发表于 2011-9-26 20:28

听课时很明白,做题就不会

zx_wl · 发表于 2011-9-26 20:29

回贴有金币

zx_wl · 发表于 2011-9-26 21:18

学习学习！

412849217 · 发表于 2011-9-26 22:28

{:041:}楼主厉害

qkd315 · 发表于 2011-9-30 09:37

回复，学习，学习

piccolowang · 发表于 2011-9-30 11:13

看看先拉！！

zx_wl · 发表于 2011-10-1 16:32

终于做好第一题了

Sub 第一题()
Dim rg As Range
For Each rg In Range("a3:d10")
If rg <> "" Then
rg.End(xlToLeft) = 1
End If
Next rg
End Sub

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