帮忙看看什么问题导致代码运行不了，出现问题，谢谢

sulli112

jjmysjg 发表于 2022-3-31 16:41
你的最终结果是哪个？

我不知道你想问什么问题，我根据楼上方法修改之后，可以用的

jjmysjg

sulli112 发表于 2022-3-31 16:53
我不知道你想问什么问题，我根据楼上方法修改之后，可以用的

我按照上面修改后，无法运行。
想看看你的最后代码附件

sulli112

jjmysjg 发表于 2022-3-31 17:59
我按照上面修改后，无法运行。
想看看你的最后代码附件

你要下载我的附件，然后运行这段代码，你要看看别人楼下出的修改方法，你看看能不能操作

1. Sub AwTest2222()
   
2.     Dim i%, j%, iRow%, s&, sr$, ws As Worksheet, arr, d As Object
   
3.     Set d = CreateObject("Scripting.Dictionary") '创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\windows\system32\scrrun.dll了
   
4.     For Each ws In Sheets
   
5.         If ws.Name <> "汇总表" And ws.Name <> "总表" And ws.Name <> "汇总" And ws.Name <> "求和" Then
   
6.             arr = ws.[a1].CurrentRegion '本示例假定在工作表 Sheet1 中有一个包含标题行的表。本示例选定该表，但不选定标题行
   
7.             For i = 2 To UBound(arr)
   
8.                 d(ws.Name & "|" & arr(i, 3)) = ""
   
9.             Next
   
10.         End If
    
11.     Next
    
12.     arr = Sheets("汇总表").[a1].CurrentRegion
    
13.     For i = 2 To UBound(arr)
    
14.         If Not d.exists(arr(i, 4) & "|" & arr(i, 3)) Then 'arr(i, 4)/arr(i,3)值 的内容不存在D字典中”，那么执行下面的语句
    
15.             For Each ws In Sheets
    
16.                 If ws.Name = arr(i, 4) Then '如果D列班级等于表名，然后
    
17.                     iRow = ws.Cells(Rows.Count, 3).End(3).Row '整体意思是第三列姓名最后一个有数据的行的行号
    
18.                     For j = 1 To 4
    
19.                         ws.Cells(iRow + 1, j) = arr(i, j) '如果没有则新建一行等于新数组
    
20.                     Next
    
21.                 End If
    
22.             Next
    
23.         End If
    
24.     Next
    
25.     For i = 2 To UBound(arr) '第2行到最后一行
    
26.         For j = 5 To UBound(arr, 2)
    
27.             If arr(i, j) > 0 Then '如果(arr(i, 1))单元格的内容长度大于0
    
28.                 sr = arr(i, 4) & "|" & arr(i, 3) & "|" & arr(1, j)
    
29.                 d(sr) = arr(i, j) '就将arr(i, 1))单元格的内容做为关建字加入字典
    
30.             End If
    
31.         Next
    
32.     Next
    
33.     For Each ws In Sheets
    
34.         If ws.Name <> "汇总表" And ws.Name <> "总表" And ws.Name <> "汇总" And ws.Name <> "求和" Then
    
35.             arr = ws.[a1].CurrentRegion
    
36.             For i = 2 To UBound(arr)
    
37.              s = 0 '累加参数初始化
    
38.                 For j = 5 To 11 'E-N列
    
39.                     sr = ws.Name & "|" & arr(i, 3) & "|" & arr(1, j)
    
40.                     If d.exists(sr) Then arr(i, j) = d(sr)
    
41.                     If j < 12 Then s = s + Val(arr(i, j)) ''''''''''''''  '' '每一个表的行第5列到13列数据数据累加给s
    
42.                 Next ''''''''''''''''''''''''''''''''''''''''''
    
43.                        arr(i, 12) = s   '''''''''''此上下4行修改了
    
44.                        arr(i, 14) = s - arr(i, 13) ''''''''''''''''
    
45.                
    
46.             Next
    
47.             ws.[a1].CurrentRegion = arr
    
48.         End If
    
49.     Next
    
50. End Sub
    

复制代码

sulli112

jjmysjg 发表于 2022-3-31 17:59
我按照上面修改后，无法运行。
想看看你的最后代码附件

而且，怎么可能运行不了，肯定你的文件跟我的文件格式不对，你要先下载别人的附件研究，再根据实际修改代码

jjmysjg

sulli112 发表于 2022-4-1 09:01
而且，怎么可能运行不了，肯定你的文件跟我的文件格式不对，你要先下载别人的附件研究，再根据实际修改代 ...

谢谢，收到