`
发表于2015/8/21 22:58:26 楼主 
头像 等级:初学者
积分:1
财富值:2.0
身份:普通用户

我有上千个相同格式的表格,想快速找到所有表格中E列的借方发生额大于等于10000的行,然后把全行内容显示出来或重新生成一个表格也可以,求助,谢谢!

我的个性签名
发表于 2015/8/21 23:08:04   
头像 等级:学者
积分:76
财富值:2
身份:普通用户
  1. Sub shengge()
  2. Dim path$, d$, ws As Workbook
  3. Dim arr, brr, i&, j&, k&, s
  4. Application.ScreenUpdating = False
  5. path = ThisWorkbook.path & "\"
  6. d = Dir(path & "*.xls")
  7. ReDim brr(1 To Cells.Rows.Count, 1 To 7)
  8. Do While d <> ""
  9.     If d <> ThisWorkbook.Name Then
  10.         Set ws = Workbooks.Open(path & d)
  11.         arr = Sheets(1).[a3].CurrentRegion
  12.         For i = 1 To UBound(arr)
  13.             If Val(arr(i, 1)) > 0 And Val(arr(i, 5)) > 10000 Then
  14.                 k = k + 1
  15.                 For j = 1 To 7
  16.                     brr(k, j) = arr(i, j)
  17.                 Next
  18.             End If
  19.         Next
  20.         ws.Close False
  21.     End If
  22.     d = Dir
  23. Loop
  24. If k = 0 Then MsgBox "查无符合条件的结果。", 64, "通知": Exit Sub
  25. Cells.Clear
  26. [a1:g1] = Array("日期", "摘要", "凭证号", "对方科目", "借方", "贷方", "余额")
  27. [a2].Resize(k, 7) = brr
  28. End Sub
我的个性签名

快速回复

目前不允许游客发表,请 登录 注册 后再发贴。