vba代码如何写？

458863601

根据a列姓名查找文件夹内全部工作簿（语文统计，数学统计，英语统计，道法统计这四个工作表找到该教师的数据，vba代码如何写？

ykcbf1100

汇总表中的姓名哪里来的？分表中压根没有姓名这一列。

蓝桥玄霜

汇总的例子：

458863601

ykcbf1100 发表于 2024-5-21 14:55
汇总表中的姓名哪里来的？分表中压根没有姓名这一列。

姓名在分表文件夹工作簿语文数学英语道法四个工作表吖

ykcbf1100

458863601 发表于 2024-5-21 16:13
姓名在分表文件夹工作簿语文数学英语道法四个工作表吖

难道单位就是姓名？

458863601

ykcbf1100 发表于 2024-5-21 14:55
汇总表中的姓名哪里来的？分表中压根没有姓名这一列。

在成绩表o列执教者是教师的姓名，四年级那个工作簿有教师的姓名，五年级的我忘记输入教师姓名了！

458863601

ykcbf1100 发表于 2024-5-21 16:16
难道单位就是姓名？

o列执教者是教师的姓名

全党

1. Sub shishi()
   
2. Dim d As Object, ar, i&, wb As Workbook, sht As Worksheet, brr()
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Application.ScreenUpdating = 0
   
5. Application.DisplayAlerts = 0
   
6. p = ThisWorkbook.Path & "\分表"
   
7. f = Dir(p & "*.xlsx")
   
8. Do While f <> ""
   
9.    Set wb = Workbooks.Open(p & f, 0)
   
10.    nj = Left(f, 3)
    
11.       For Each sht In wb.Sheets
    
12.          If sht.Name Like "*统计" Then
    
13.             ar = sht.UsedRange
    
14.                 For i = 3 To UBound(ar)
    
15.                        If Len(ar(i, 15)) And ar(i, 15) <> 0 Then
    
16.                        Key = ar(i, 15) & "," & nj & "," & ar(i, 2)
    
17.                        If Not d.exists(key) Then
    
18.                            d(Key) = Array(ar(i, 20), ar(i, 21), ar(i, 22), ar(i, 23))
    
19.                         End If
    
20.                    End If
    
21.                Next
    
22.             End If
    
23.        Next
    
24.    wb.Close 1
    
25. f = Dir
    
26. Loop
    
27. ReDim brr(1 To d.Count, 1 To 7)
    
28. With Sheet1
    
29.     .UsedRange.Offset(1).Clear
    
30.     For Each Key In d.keys
    
31.     n = n + 1
    
32.     tt = Split(Key, ","): ss = d(Key)
    
33.       brr(n, 1) = tt(0): brr(n, 2) = tt(1): brr(n, 3) = tt(2)
    
34.      For j = 0 To 3
    
35.      brr(n, j + 4) = ss(j)
    
36.      Next
    
37.     Next
    
38.    .Range("a2").Resize(n, 7) = brr
    
39. End With
    
40. Application.ScreenUpdating = 1
    
41. Application.DisplayAlerts = 1
    
42. End Sub
    

复制代码

458863601

蓝桥玄霜 发表于 2024-5-21 15:00
汇总的例子：

代码运行错误的呢？

蓝桥玄霜

请仔细核对抄写的代码，初学者常常会抄错的。
或者上传出错的代码和附件看看。