|
|
楼主 |
发表于 2020-5-16 16:13
|
显示全部楼层
想请教一下，如果汇总表跟其他的表都多加了一个列标题，那么要修改哪一段壳子，才能使其能够将数据复制对应位置呢？
Sub AwTest()
Dim i%, j%, iRow%, s&, sr$, ws As Worksheet, arr, d As Object
Set d = CreateObject("Scripting.Dictionary") '创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\windows\system32\scrrun.dll了
For Each ws In Sheets
If ws.Name <> "汇总表" Then
arr = ws.[a1].CurrentRegion '本示例假定在工作表 Sheet1 中有一个包含标题行的表。本示例选定该表，但不选定标题行
For i = 2 To UBound(arr)
d(ws.Name & "|" & arr(i, 3)) = ""
Next
End If
Next
arr = Sheets("汇总表").[a1].CurrentRegion
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 4) & "|" & arr(i, 3)) Then 'arr(i, 4)/arr(i,3)值 的内容不存在D字典中”，那么执行下面的语句
For Each ws In Sheets
If ws.Name = arr(i, 4) Then '如果D列班级等于表名，然后
iRow = ws.Cells(Rows.Count, 3).End(3).Row '整体意思是第三列姓名最后一个有数据的行的行号
For j = 1 To 4
ws.Cells(iRow + 1, j) = arr(i, j) '如果没有则新建一行等于新数组
Next
End If
Next
End If
Next
For i = 2 To UBound(arr) '第2行到最后一行
For j = 5 To UBound(arr, 2)
If arr(i, j) > 0 Then '如果(arr(i, 1))单元格的内容长度大于0
sr = arr(i, 4) & "|" & arr(i, 3) & "|" & arr(1, j)
d(sr) = arr(i, j) '就将arr(i, 1))单元格的内容做为关建字加入字典
End If
Next
Next
For Each ws In Sheets
If ws.Name <> "汇总表" Then
arr = ws.[a1].CurrentRegion
For i = 2 To UBound(arr)
s = 0
For j = 5 To 13 'E-N列
sr = ws.Name & "|" & arr(i, 3) & "|" & arr(1, j)
If d.exists(sr) Then arr(i, j) = d(sr)
s = s + arr(i, j)
arr(i, 14) = s
arr(i, 17) = arr(i, 14) - arr(i, 15)
Next
Next
ws.[a1].CurrentRegion = arr
End If
Next
End Sub |
|
楼主: sulli112
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2020-5-15 12:49
