[求助]如保查找最小行号及最大行号

nbchn

在B列中有1-12个数值，每个数值不止一个。

1、如何定义R=含2的最小行号

2、如何定义S=含2的最大行号

hupanshan

也没有什么好方法，就是一个一个地数：

for b=1 to [b65536].end(xlup).row

    if range("b" & b)=2 then '如果是“包含”用 right(range("b" & b),"2")

        R=b

        exit for

    end if

next b

for b=[b65536].end(xlup).row to 1 step -1

    if range("b" & b)=2 then   '如果是“包含”用 right(range("b" & b),"2")

        S=b

        exit for

next b

[此贴子已经被作者于2008-9-15 15:41:22编辑过]

nbchn

用WorksheetFunction.Match（）可以吗？

hupanshan

QUOTE:

以下是引用nbchn在2008-9-15 13:54:00的发言：

在B列中有1-12个数值，每个数值不止一个。

理解为B列中的数最小为1，最大为12

1、如何定义R=含2的最小行号

理解为B列=2?

2、如何定义S=含2的最大行号

nbchn

谢谢

如果B5：B9中都是2

那：R=5,S=9

hupanshan

dim rg as range

set rg=range("b1:b" & [b65536].end(xlup).row).find("2",lookin:=xlvalues)

if not rg is nothing then R=rg.row

Set rg = range("b1:b" & [b65536].end(xlup).row).FindPrevious(after:=rg)
if not rg is nothing then S=rg.row

[此贴子已经被作者于2008-9-15 15:48:25编辑过]

zldccmx

QUOTE:

以下是引用nbchn在2008-9-15 13:54:00的发言：

在B列中有1-12个数值，每个数值不止一个。

1、如何定义R=含2的最小行号

2、如何定义S=含2的最大行号

精确查找时，如果是重复值是连续，而且经过排序，使用MATCH、VlookUp均可以做到！

模糊查找时MATCH只能获得首行满足条件的记录，而且匹配类型应该指明是0，MATCH（ 值,范围,0）

从你的题目来看，应该是模糊查找，那么，这时就得使用VBA的FIND函数了！

oobird

r = [b:b].Find(2, , , , , 1).Row
s = [b:b].Find(2, , , , , 2).Row

hupanshan

版主的语句比Excel的说明可强多了

nbchn

谢谢版主及hupanshan老师、zldccmx老师