模糊查找汇总

yeu118

桌面.rar (12.62 KB, 下载次数: 12)

2014-4-11 08:22 上传

点击文件名下载附件

里面有２个文件，要求是在文件１里面，就是要从文件２里面查找汇总相同的部门的和。

Zamyi

=SUMIF([2.xlsx]Sheet1!$A:$A,"*"&A2&"*",[2.xlsx]Sheet1!$B:$B)

chxw68

1. Sub test()
   
2.   Dim d As Object
   
3.   Dim r%, i%
   
4.   Dim arr, brr
   
5.   Dim mypath$, myname$
   
6.   Dim wb As Workbook
   
7.   Set d = CreateObject("scripting.dictionary")
   
8.   mypath = ThisWorkbook.Path & ""
   
9.   myname = Dir(mypath & "2.xls")
   
10.   If myname = "" Then
    
11.     MsgBox "2.xls不存在!"
    
12.     Exit Sub
    
13.   End If
    
14.   With Worksheets("sheet1")
    
15.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
16.     arr = .Range("a2:b" & r)
    
17.     For i = 1 To UBound(arr)
    
18.       d(arr(i, 1)) = 0
    
19.     Next
    
20.   End With
    
21.   
    
22.   Set wb = GetObject(mypath & myname)
    
23.   With wb
    
24.     With .Worksheets("sheet1")
    
25.       r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
26.       brr = .Range("a2:b" & r)
    
27.     End With
    
28.     .Close
    
29.   End With
    
30.   For i = 1 To UBound(brr)
    
31.     For Each aa In d.Keys
    
32.       If brr(i, 1) Like "*" & aa & "*" Then
    
33.         d(aa) = d(aa) + brr(i, 2)
    
34.       End If
    
35.     Next
    
36.   Next
    
37.   For i = 1 To UBound(arr)
    
38.     arr(i, 2) = d(arr(i, 1))
    
39.   Next
    
40.   With Worksheets("sheet1")
    
41.     .Range("b2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 2)
    
42.   End With
    
43. End Sub
    

复制代码

chxw68

做个VBA的，抛砖引玉。

yeu118

chxw68 发表于 2014-4-11 09:24
做个VBA的，抛砖引玉。

嘿嘿，我都没有看到，你在哪里定义了三部等于哪些部门，五部等于哪些部门相加？？？

chxw68

就是下面几句:
For i = 1 To UBound(brr)
  For Each aa In d.Keys
     If brr(i, 1) Like "*" & aa & "*" Then
       d(aa) = d(aa) + brr(i, 2)
     End If
  Next
Next

yeu118

chxw68 发表于 2014-4-11 09:42
就是下面几句:
For i = 1 To UBound(brr)
  For Each aa In d.Keys

有没有办法就是指定 三部等于哪几个吗？  因为实际操作中，可能有的会有不同部门，但是关键字会出现同样的。

chxw68

yeu118 发表于 2014-4-11 21:06
有没有办法就是指定 三部等于哪几个吗？  因为实际操作中，可能有的会有不同部门，但是关键字会出现同样 ...

那你就在一个新的工作表中指定各个关键字之间的关系。

yeu118

chxw68 发表于 2014-4-11 21:13
那你就在一个新的工作表中指定各个关键字之间的关系。

该如何指定，然后再通过sumif来统计呢？

yeu118

Zamyi 发表于 2014-4-11 08:58
=SUMIF([2.xlsx]Sheet1!$A:$A,"*"&A2&"*",[2.xlsx]Sheet1!$B:$B)

有办法通过指定三部等于哪几个部门，五部等于哪几个吗？不然模糊的话，有的部门也有重复字。