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

sulli112

这个代码是根据汇总表里面的数据根据班级跟姓名找到对应表格将数据复制到对应表格，之前用着是没有问题的，不知道这次为啥老是显示有问题，标黄那句话所在那一段是指，当数据在E-K列，也就是当数据在5-11列的时候，相加的和填在13列（L列），然后15列（N列）实收=13列-14列后的结果，麻烦大神说明一下到底是什么原因导致的呢，我试了几次都不可以

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

复制代码

psxk3535

学习了，.........................

sulli112

psxk3535 发表于 2021-3-4 01:24
是不是车费那一列的数据有问题啊，把没有数据的清除内容一下试试

清了也一样的，我看到是L1表格第8列有问题，改了还是不行

MOY838840554

0不能+字符空，不是报错类型不匹配了吗，说明数据类型不对。反正S是long,那就加个Val(arr(i,j))

sulli112

MOY838840554 发表于 2021-3-4 09:30
0不能+字符空，不是报错类型不匹配了吗，说明数据类型不对。反正S是long,那就加个Val(arr(i,j))

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 = 0 + 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
    

复制代码

数据是可以复制进去表格，但是依然是合计算不了

psxk3535

If j < 12 Then s = 0 + Val(arr(i, j))换成If j < 12 Then s = s + Val(arr(i, j))

suntao2000

s = s + arr(i, j)

sulli112

psxk3535 发表于 2021-3-4 12:48
If j < 12 Then s = 0 + Val(arr(i, j))换成If j < 12 Then s = s + Val(arr(i, j))

可以了，谢谢

sulli112

suntao2000 发表于 2021-3-4 13:10
s = s + arr(i, j)

谢谢，可以了

jjmysjg

你的最终结果是哪个？