求助编制程序（已解决）

yjm0809

各位大侠，编制了个将明细审定表中数据按会计科目审定表A列及相同表头为依据进行汇总填列的程序，不会计算明细审定表中数据的累加及给会计科目审定表赋值了，请高手帮助修改下吧，谢谢！！！！

  Sub test()
  Dim d As Object
  Dim r%, i%
  Dim arr
  Set d = CreateObject("scripting.dictionary")
  With Worksheets("?????????")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("a8:a" & r)
  End With
  For i = 1 To UBound(arr)
    d(arr(i, 1)) = 0
  Next
  With Worksheets("??????????")
    r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
    For j = 1 To r1
      arr = .Range(.Cells(j + 7, 1), .Cells(r, 25))
      For i = 1 To UBound(arr)
        If d.Exists(arr(i, 1)) Then
          d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
        End If
      Next
    Next
  End With
  With Worksheets("?????????")
      For i = 1 To UBound(arr)
        .Cells(i + 7, 4) = d(arr(i, 4))
      Next
  
  End With
End Sub

microyip

这么说，这个语句不是你写的，你不明白语句是什么意思，如果是，先学一下基础知识

yjm0809

microyip 发表于 2018-7-28 10:47
这么说，这个语句不是你写的，你不明白语句是什么意思，如果是，先学一下基础知识

语句能读懂，但后面那部分不太明白了，谢谢啊，帮忙修改下吧，急用啊

不知道为什么

不是就字典的用法？

yjm0809

不知道为什么 发表于 2018-7-28 11:04
不是就字典的用法？

是啊，但我不会啊，求帮助

microyip

如果急用，可以请6楼的专门有偿帮助的版主帮你改啊

yjm0809

你好，我修改了程序，运行能通过，但会计科目审定表的标黄部分没有数据填列，请大写帮助修改下吧
思路：以明细科目审定表的X列为汇总依据，将L列的数据（标黄部分）汇总填列在会计科目审定表的D列（标黄部分）
求高手帮助下吧，谢谢

duquancai

yjm0809 发表于 2018-7-28 11:52
你好，我修改了程序，运行能通过，但会计科目审定表的标黄部分没有数据填列，请大写帮助修改下吧
思路：以 ...

楼主，既然是这样，建议你找6楼版主嘛！

不知道为什么

yjm0809 发表于 2018-7-28 11:52
你好，我修改了程序，运行能通过，但会计科目审定表的标黄部分没有数据填列，请大写帮助修改下吧
思路：以 ...

看了你的附件，思路没什么问题，错在你把所有的单元格列 号弄错了，自己检查下把