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

kenyy · 发表于 2011-10-2 21:54

看答案来找。

dnntal · 发表于 2011-10-5 22:16

我看看会不会做

dnntal · 发表于 2011-10-5 22:22

slg1975 · 发表于 2011-10-9 19:27

学习一下了

slg1975 · 发表于 2011-10-9 19:31

越来越难了

slg1975 · 发表于 2011-10-9 19:31

没有基础，光学这几节，很难做出来

slg1975 · 发表于 2011-10-9 19:34

回复 liuts 的帖子

Sub 统计()
With Sheets("第1题").Range("a3:a10")
.FormulaR1C1 = "=IF(SUMPRODUCT(1*(RC[1]:RC[3]>0)),1,"""")"
Sheets("第1题").[a3:a10] = .Value
End With
End Sub

不是本节学习的内容解答的。

slg1975 · 发表于 2011-10-10 09:58

回复 csmccdh 的帖子

你太厉害了，语言简单紧凑。学习了

hongda06 · 发表于 2011-10-10 21:32

看看是什么

wbzxz · 发表于 2011-10-14 11:58

交个作业，请师父指点。

第12集练习题-wbzxz.rar (11.35 KB, 下载次数: 31)

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