[已解决]查询指定数据位置的问题

小玲玲

附件 查询指定数据位置.rar (267.84 KB, 下载次数: 10)

2014-6-9 13:08 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-6-10 04:21

………………

跳转到最佳答案楼层

windimi007

1、如果某个工作簿中没有该数，是空着吗？
2、如果某个工作簿中有多个该数，怎么表示？

小玲玲

windimi007 发表于 2014-6-9 13:42
1、如果某个工作簿中没有该数，是空着吗？
2、如果某个工作簿中有多个该数，怎么表示？

谢谢老师关注。
第一：事先已知，所有工作薄A列，都有该数。
第二：从上到下，只取该数第一个。

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook, mypath$, wj$, arr(1 To 2000, 1 To 2)
   
3. mypath = ThisWorkbook.Path & "\数据"
   
4. wj = Dir(mypath & "*.xls")
   
5. t = [a1]
   
6. Application.ScreenUpdating = False
   
7. Do While wj <> ""
   
8.     s = s + 1
   
9.     Set wb = GetObject(mypath & wj)
   
10.     arr(s, 1) = Split(wb.Name, ".xls")(0)
    
11.     Set rng = wb.Sheets(1).Columns(1).Find(t, lookat:=xlWhole)
    
12.     If Not rng Is Nothing Then arr(s, 2) = rng.Address(0, 0)
    
13.     wb.Close 0
    
14.     wj = Dir
    
15. Loop
    
16. With Range("b1").Resize(s, 2)
    
17.     .Value = arr
    
18.     .Sort [b1], Header:=xlGuess
    
19. End With
    
20. Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

dsmch

………………