[开_16] 指定记录数筛选符合条件的记录[已总结] ★★★★

gdliyy

没说明白，装不明白？：)

你不是用它来产生1到N的列数组与行数相减吗？我觉得只用“ROW(INDIRECT("1:"&Max($B$6:$B$8)))”就可以了，这样运算量会小得多，特别是在数据多的时候。呵呵~~~一看就是装不明白：)

apolloh

呵呵，有道理，功夫还在细微处

wuaza

既然不限vba，那么我也来一个。

luOhwVuf.rar (9.27 KB, 下载次数: 114)

2005-2-25 14:25 上传

点击文件名下载附件
[函数应用测试题11] 指定记录数筛选符合条件的记录 ★★★★

趙雲

高手的汇聚贴,我等菜鸟是来佩服+学习的!

趙雲

以下是引用apolloh在2005-2-23 12:54:00的发言：

SUMIF(OFFSET($B$5,,,ROW($B$6:$B$8)-ROW($B$6)+1,),"<>")

sumif的三维引用的确很妙！

菜鸟在这里弱弱的的问两个问题,希望高手帮忙解惑.

IF(OFFSET($B$5,,,ROW($B$6:$B$8)-ROW($B$6)+1,),"<>")中的ROW($B$6:$B$8)-ROW($B$6)+1,)为什么不直接用ROW($B$1:$B$3)???

"<>"的含义是什么???

很多符号的含义都不是很明白???比如有的公式中的"--"

以上请高手帮助解答...谢谢

apolloh

因为OFFSET($B$5,,,ROW($B$6:$B$8)-ROW($B$6)+1,)三维引用会形成一些空值的引用，"<>" 就是代表不等于空。

也可以用">0"

--和*1，/1，+0，-0的用法是一样的，就是把文本型数值或逻辑值数值化。

foodfire

看不懂还要研究研究！嘿嘿！开个会讨论讨论1

zyz0055

Sub jc_单击() Dim m, n, i As Integer m = 6 n = 6 Do While Cells(m, 1) <> "" For i = 1 To Cells(m, 1).Offset(0, 1) Cells(n, 6) = Cells(m, 1) n = n + 1 Next m = m + 1 Loop End Sub Sub SJ_单击() Dim m, n, i, j As Integer m = 6 n = 6 For j = 1 To Range("a6:a8").Rows.Count For i = 1 To Cells(m, 1).Offset(0, 1) Cells(n, 10) = Cells(5, 3).Offset(i, j) n = n + 1 Next m = m + 1 Next End Sub 33楼请把这句解释一下多谢:Cells(m, 1).Offset(0, 1)

趙雲

以下是引用apolloh在2005-2-25 16:44:00的发言：

因为OFFSET($B$5,,,ROW($B$6:$B$8)-ROW($B$6)+1,)三维引用会形成一些空值的引用，"<>" 就是代表不等于空。

也可以用">0"

--和*1，/1，+0，-0的用法是一样的，就是把文本型数值或逻辑值数值化。

谢谢版主帮助,那么ROW($B$6:$B$8)-ROW($B$6)+1,)可不可以直接用ROW($B$1:$B$3)代替那?我还是没看明白?

gdliyy

以下是引用趙雲在2005-2-25 18:00:00的发言： 谢谢版主帮助,那么ROW($B$6:$B$8)-ROW($B$6)+1,)可不可以直接用ROW($B$1:$B$3)代替那?我还是没看明白?

当然可以的，只不过请注意这是在“明细数据行数确定”的情况下才能用的。