对同一文件夹下多个工作簿文件的某一手机号码的搜索

lixiaoyao

你真能忽悠人。。。六个月后才公布你的实验结果。。。我也很有耐心，等六个月也要看看到底是怎么回事

luanma

现在也遇到同样的问题了，还没有答案啊

irda

这帖子里的方法都试了吗？

shrain66

那就是说要把单元格格式改成文本格式？

irda

原帖由 shrain66 于 2011-6-27 10:58 发表
那就是说要把单元格格式改成文本格式？

也不行。
最彻底的方法就是：
第一步 完全安装系统(不能用ghost)
第二步 按内容查询即可

ykcbf1100

借题练习，VBA，在多文件中查询电话号码
用find函数的完全匹配方式可以达到目的。

ykcbf1100

1. Sub ykcbf()   '//2025.3.28   电话号查询
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set fso = CreateObject("scripting.filesystemobject")
   
5.     Set ws = ThisWorkbook
   
6.     p = ws.Path & ""
   
7.     Set sh = ws.Sheets("Sheet1")
   
8.     xm = sh.[f2].Value
   
9.   '  On Error Resume Next
   
10.     Dim tm: tm = Timer
    
11.     For Each f In fso.GetFolder(p).Files
    
12.         If LCase$(f.Name) Like "*.xls*" Then
    
13.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
14.                 ft = 0
    
15.                 Set wb = Workbooks.Open(f, 0)
    
16.                 With wb.Sheets(1)
    
17.                     Set Rng = .UsedRange.Find(What:=xm, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    
18.                     If Not Rng Is Nothing Then ft = 1
    
19.                 End With
    
20.                 wb.Close 0
    
21.                 If ft = 1 Then
    
22.                     MsgBox "电话号在" & f.Name & "文件中找到了！"
    
23.                     Exit Sub
    
24.                 End If
    
25.             End If
    
26.         End If
    
27.     Next f
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "共用时：" & Format(Timer - tm, "0.000") & "秒！"
    
30. End Sub
    

复制代码

sandays

windows自带的搜索功能就很好啊

sandays

或者新建一工作簿，使用Power Query将KK文件夹下的工作簿内容都读进来，再进行查找，一劳永逸，