Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1949|回复: 1

[已解决]统计求和的问题

[复制链接]
发表于 2013-7-7 19:12 | 显示全部楼层 |阅读模式
汇总表中的入库运算结果不对,并且感觉用的代码累赘效率低,求高手更改,最好+上注释。谢谢
最佳答案
2013-7-7 21:17
  1. Sub 入库()
  2.     Dim ARR, I%, J%, T&
  3.     Application.ScreenUpdating = False
  4.     With Workbooks.Open(ThisWorkbook.Path & "\原始数据\入库表.xlsx")
  5.         ARR = .Sheets("入库").UsedRange
  6.         .Close
  7.     End With
  8.     Sheets("结果页").Select
  9.     For I = 2 To Range("A65536").End(3).Row
  10.         For J = 2 To UBound(ARR)
  11.             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)
  12.         Next
  13.         Cells(I, 9) = T
  14.         T = 0
  15.     Next
  16.     Application.ScreenUpdating = True
  17. End Sub
复制代码

求助.zip

51.58 KB, 下载次数: 16

统计求和

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-7-7 21:17 | 显示全部楼层    本楼为最佳答案   
  1. Sub 入库()
  2.     Dim ARR, I%, J%, T&
  3.     Application.ScreenUpdating = False
  4.     With Workbooks.Open(ThisWorkbook.Path & "\原始数据\入库表.xlsx")
  5.         ARR = .Sheets("入库").UsedRange
  6.         .Close
  7.     End With
  8.     Sheets("结果页").Select
  9.     For I = 2 To Range("A65536").End(3).Row
  10.         For J = 2 To UBound(ARR)
  11.             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)
  12.         Next
  13.         Cells(I, 9) = T
  14.         T = 0
  15.     Next
  16.     Application.ScreenUpdating = True
  17. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 16:09 , Processed in 0.730878 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表