[已解决]求个vba

zhaongxa

Book2.xls22.rar (5.2 KB, 下载次数: 25)

2012-2-15 10:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-2-15 10:53

查找数据.rar (9.78 KB, 下载次数: 12)

2012-2-15 10:53 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

回错了

liuts

1. 
   
2. Sub liuts()
   
3.     Dim rng As Range, fsaddress$, ar(10000, 0), k%
   
4.     Set rng = Sheet1.Range("d4:ac22").Find(Range("A4").Value)
   
5.     If rng Is Nothing Then Range("b4") = "无": Exit Sub
   
6.     fsaddress = rng.Address(0, 0)
   
7.     Do
   
8.         ar(k, 0) = rng.Address(0, 0)
   
9.         Set rng = Sheet1.Range("d4:ac22").FindNext(rng)
   
10.         k = k + 1
    
11.     Loop Until rng.Address(0, 0) = fsaddress
    
12.     Range("A7").Resize(k) = ar
    
13. End Sub
    

复制代码

hrpotter

1. Sub 提取()
   
2.     Dim rg As Range
   
3.     Range("a5:a65536").ClearContents
   
4.     Range("b4").ClearContents
   
5.     For Each rg In Range("d4:ac22")
   
6.         If Val(rg) = Val(Range("a4").Value) Then
   
7.             Range("a" & Range("a65536").End(xlUp).Row + 1) = rg.Address
   
8.         End If
   
9.     Next
   
10.     If Range("a5") = "" Then
    
11.         Range("b4") = "无"
    
12.     End If
    
13. End Sub

复制代码

zhaongxa

liuts 发表于 2012-2-15 10:34

如果里面没有要在b4显示"无',

zjdh

查找数据.rar (9.78 KB, 下载次数: 12)

2012-2-15 10:53 上传

点击文件名下载附件

zsx720629

看一下这个，是不是你想要的

zsx720629

看一下这个，是不是你想要的