遍历工作表查找指定数据。

朝花夕拾2018

强大，学习中

taiyuanzhou

都是大神，都很厉害，看的我都不想睡觉了

excelreds

膜拜一下大神们

ygf456789

爱沉浮 发表于 2019-3-24 13:55
vba刚入门，有瑕疵的地方，欢迎大家指正

如果查询内容输入分数，返回的值没有姓名一列的信息，怎么解决知道吗？

413991697

tigertc 发表于 2019-3-23 11:48
用for each 遍历worksheets,用FIND找姓名字段.find可以获取到地址

别人就是不懂，你这么说和没说一样

tigertc

413991697 发表于 2020-7-22 09:27
别人就是不懂，你这么说和没说一样

你不懂不代表所有人的别人都不懂.
不懂就虚拟请教,专心学习,我无知我骄傲很可耻!

1. Sub 提取()
   
2. Dim arr, brr(1 To 10000, 1 To 4), Rng As Range
   
3. arr = Range("A3:A" & [A1048576].End(3).Row): n = 1
   
4. myfiles = Application.GetOpenFilename(filefilter:=("Excel Files (*.xls*),*.xls*"), MultiSelect:=False)
   
5. If TypeName(myfiles) = "Boolean" Then Exit Sub
   
6. Workbooks.Open myfiles
   
7. For Each sht In ActiveWorkbook.Sheets
   
8.     For i = 1 To UBound(arr)
   
9.         Set Rng = sht.Columns(1).Find(what:=arr(i, 1), lookat:=xlWhole)
   
10.         If Not Rng Is Nothing Then
    
11.             nR = Rng.Row
    
12.             Do
    
13.                 Debug.Print Rng.Row
    
14.                 For j = 1 To 4
    
15.                     brr(n, j) = sht.Cells(Rng.Row, j).Value
    
16.                 Next j
    
17.                 n = n + 1
    
18.                 Set Rng = sht.Columns(1).FindNext(Rng)
    
19.             Loop While Not Rng Is Nothing And Rng.Row <> nR
    
20.             Set Rng = Nothing
    
21.         End If
    
22.     Next i
    
23. Next
    
24. ActiveWorkbook.Close (False)
    
25. Range("C3:F1048576").Clear
    
26. [c3].Resize(n - 1, 4) = brr
    
27. End Sub

复制代码

银河流

tigertc 发表于 2019-3-23 11:48
用for each 遍历worksheets,用FIND找姓名字段.find可以获取到地址

学习了，此为好帖