[已解决]多个文件查同一名称数据

zzffqq

我想把文件夹里所有电子表格里的数据弄成这个样子,比如我要王五,那文件夹里电子表格中含王五的数据都到这张表里，就是象这个样子。

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-22 20:25

......................

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     xname = [e1]
   
3.     Dim brr(1 To 100, 1 To 3)
   
4.     Set fso = CreateObject("scripting.filesystemobject")
   
5.     For Each f In fso.getfolder(ThisWorkbook.Path).Files
   
6.         If InStr(f, ThisWorkbook.Name) = 0 Then
   
7.             Set wb = Workbooks.Open(f)
   
8.             arr = wb.Sheets(1).[a1].CurrentRegion
   
9.             For i = 2 To UBound(arr)
   
10.                 If arr(i, 1) = xname Then
    
11.                     n = n + 1
    
12.                     brr(n, 1) = arr(i, 1): brr(n, 2) = arr(i, 2): brr(n, 3) = arr(i, 3)
    
13.                 End If
    
14.             Next
    
15.             wb.Close False
    
16.         End If
    
17.     Next
    
18.     If n > 0 Then [a2].Resize(n, 3) = brr
    
19. End Sub
    

复制代码

zzffqq

grf1973 发表于 2015-4-22 15:59

如果我的姓名在B列,取K列的分数,如何写函数呢?

grf1973

上文件说明。

zzffqq

grf1973 发表于 2015-4-22 16:32
上文件说明。

我想得到这个样子

grf1973

......................