Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2849|回复: 9

[已解决]本人有上百个全是数字的excel表格,想要快速的知道哪个表格里含有大于50的数值

[复制链接]
发表于 2013-7-18 21:38 | 显示全部楼层 |阅读模式
本人有上百个全是数字的excel表格,想要快速的知道哪个表格里含有大于50的数值。因为平时是一个个打开,再查找,可是表格太多了,这样太浪费时间和精力了。想问下大家有没有更简单的方法。。
这里先上传2个表格,求大家帮忙。。。先谢谢大家了。。。
111.rar (97.65 KB, 下载次数: 4)
发表于 2013-7-18 22:38 | 显示全部楼层
你的这不是工作表,而是工作簿。所有工作簿中是不是在同一文件夹,每个工作簿是不是只有一个工作表1,查找的结果怎样表示出来?在哪里表示?
回复

使用道具 举报

发表于 2013-7-18 23:14 | 显示全部楼层    本楼为最佳答案   
  1. Option Explicit

  2. Dim B(1 To 10 ^ 5, 1 To 3), s
  3. Sub test1()
  4.     Dim p, f
  5.    
  6.     Application.ScreenUpdating = False
  7.     p = ThisWorkbook.Path & "\file"
  8.     f = Dir(p & "*.xls")
  9.    
  10.     Do While f <> ""
  11.         Workbooks.Open p & f
  12.         test2
  13.         ActiveWorkbook.Close
  14.         f = Dir
  15.     Loop
  16.    
  17.     Cells.Clear
  18.     If s Then [a1].Resize(s, 3) = B: s = 0
  19. End Sub

  20. Sub test2()
  21.     Dim A, wb, sh, i, j

  22.     wb = ActiveWorkbook.Name
  23.     sh = ActiveSheet.Name
  24.     A = ActiveSheet.UsedRange

  25.     For i = 1 To UBound(A)
  26.         For j = 1 To UBound(A, 2)
  27.             If A(i, j) > 50 Then
  28.                 s = s + 1
  29.                 B(s, 1) = wb
  30.                 B(s, 2) = sh
  31.                 B(s, 3) = Cells(i, j + 1).Address(0, 0)
  32.             End If
  33.         Next j
  34.     Next i
  35. End Sub

复制代码
111b.rar (107.76 KB, 下载次数: 5)
回复

使用道具 举报

发表于 2013-7-18 23:20 | 显示全部楼层
学习!
回复

使用道具 举报

 楼主| 发表于 2013-7-18 23:51 | 显示全部楼层
爱疯 发表于 2013-7-18 23:14
要把待查找EXCEL文件都放在file目录

谢谢版主,,释放了劳动力呀。。感谢。。
回复

使用道具 举报

 楼主| 发表于 2013-7-20 17:23 | 显示全部楼层
爱疯 发表于 2013-7-18 23:14
要把待查找EXCEL文件都放在file目录

版主,如果两个数字中间并不是空格的,而是填了字母的,那宏应该怎么改动一下呢?我试过中间有字母的,并不能达到我想要的效果。。求版主再费神一下,先谢谢了。。 111b.rar (72.13 KB, 下载次数: 3)
回复

使用道具 举报

发表于 2013-7-20 17:32 | 显示全部楼层
ugeso 发表于 2013-7-20 17:23
版主,如果两个数字中间并不是空格的,而是填了字母的,那宏应该怎么改动一下呢?我试过中间有字母的,并 ...

111c.rar (71.84 KB, 下载次数: 5)
回复

使用道具 举报

 楼主| 发表于 2013-7-20 17:39 | 显示全部楼层
爱疯 发表于 2013-7-20 17:32
修改好了

谢谢版主,真的感激不尽。。
回复

使用道具 举报

发表于 2013-7-20 18:37 | 显示全部楼层
爱疯 发表于 2013-7-20 17:32
修改好了

查找不全,且只对存在时打开的工作表作用,一个工作簿有多个工作表时,只查找打开后显示的工作表。查找范围也很小,A、C列都不查找。为什么?
回复

使用道具 举报

发表于 2013-7-21 09:53 | 显示全部楼层
111d.rar (70.46 KB, 下载次数: 3)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 21:51 , Processed in 1.509614 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表