多列查询返回行号问题?

兰州人

数据源
A列        B列
Aa        1-1
Bb        1-2
Dd        1-3
Dd        1-4
Dd        1-5
Dd        1-6
Dd        1-7

Sub ls()
  Dim cc As Range
  Set cc = Sheet1.Cells.Find("Dd", LookIn:=xlValues)
  Debug.Print  cc.Address
  '返回结果为     $A$4
End Sub

目标需求是
A列 D, 列为1-3
可是CC的只有$A$4,如何能实现用$A$4:A:8的结果,
再结合offset 就可二次用find
set   ss = cc.Find("1-3", LookIn:=xlValues)
获得
A列 D, 列为1-3的行号的目标需求.
请问各位大侠有何高招.谢谢.
在这个帖了用的是循环法.
http://topic.csdn.net/u/20070123 ... f-cc97d80a69b1.html
不会用循环法解决吧??

在这个帖子用的是Index+Match法.
http://www.wangchao.net.cn/bbsdetail_1627875.html

[ 本帖最后由 兰州人 于 2009-8-5 11:02 编辑 ]

蓝桥玄霜

1. Sub ls()
   
2.   Dim cc, fsad$
   
3.   With Sheet1.[a:a]
   
4.         Set cc = .Find("Dd")
   
5.         If Not cc Is Nothing Then
   
6.             fsad = cc.Address
   
7.             Debug.Print cc.Address
   
8.             Do
   
9.                 Set cc = .FindNext(cc)
   
10.                 If cc.Address <> fsad Then Debug.Print cc.Address
    
11.             Loop While Not cc Is Nothing And cc.Address <> fsad
    
12.         End If
    
13.   End With
    
14. End Sub
    

复制代码

兰州人

原帖由 蓝桥玄霜 于 2009-8-5 11:08 发表
Sub ls()
  Dim cc, fsad$
  With Sheet1.[a:a]
        Set cc = .Find("Dd")
        If Not cc Is Nothing Then
            fsad = cc.Address
            Debug.Print cc.Address
            Do
     ...

谢谢大侠的思路.按此思路在这点作文章.
Debug.Print cc.Address, cc.Offset(0, 1).Address, cc.Offset(0, 1)
结果为
$A$5          $B$5          1-4
$A$6          $B$6          1-5
$A$7          $B$7          1-6
$A$8          $B$8          1-7
$A$11         $B$11         1-5
$A$12         $B$12         1-6
$A$13         $B$13         1-7

Sub ls1()
  Dim cc As Range, fsad$
  With Sheet1.[a:a]
        Set cc = .Find("Dd")
        If Not cc Is Nothing Then
            fsad = cc.Address
            Debug.Print cc.Address
            Do
                Set cc = .FindNext(cc)
                If cc.Address <> fsad Then
                  Debug.Print cc.Address, cc.Offset(0, 1).Address, cc.Offset(0, 1)
                  ''在此采用一个判断语句,可实现目标需求.
                  '' 好处是先用find缩小循环次数,
                  ''用for next要从头到尾比较.
                End If
            Loop While Not cc Is Nothing And cc.Address <> fsad
        End If
  End With
End Sub
Debug.Print cc.Address, cc.Offset(0, 1).Address, cc.Offset(0, 1)