|
汇总表中的入库运算结果不对,并且感觉用的代码累赘效率低,求高手更改,最好+上注释。谢谢
- Sub 入库()
- Dim ARR, I%, J%, T&
- Application.ScreenUpdating = False
- With Workbooks.Open(ThisWorkbook.Path & "\原始数据\入库表.xlsx")
- ARR = .Sheets("入库").UsedRange
- .Close
- End With
- Sheets("结果页").Select
- For I = 2 To Range("A65536").End(3).Row
- For J = 2 To UBound(ARR)
- If Cells(I, 1) & Cells(I, 2) & Cells(I, 3) = ARR(J, 1) & ARR(J, 2) & ARR(J, 3) Then T = T + ARR(J, 9)
- Next
- Cells(I, 9) = T
- T = 0
- Next
- Application.ScreenUpdating = True
- End Sub
复制代码
|
-
-
求助.zip
51.58 KB, 下载次数: 16
统计求和
|