Excel精英培训网

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

[已解决]求大师优化下代码

[复制链接]
发表于 2013-1-14 22:09 | 显示全部楼层 |阅读模式
此文件是否可以再深度优化下,提高运行速度
最佳答案
2013-1-15 09:06
  1. Sub YY()
  2.     T = Timer
  3.     ARR = Range("D2:D" & Range("D65536").End(3).Row)
  4.     ReDim BRR(1 To UBound(ARR), 1 To 3)
  5.     Range("I1") = "金额"
  6.     Range("H1") = "货号"
  7.     Range("J1") = "礼券金额"
  8.     For I = 1 To UBound(ARR)
  9.         BRR(I, 2) = Split(ARR(I, 1), "|")(39)
  10.         BRR(I, 1) = Split(ARR(I, 1), "|")(5)
  11.         If Mid(Split(ARR(I, 1), "|")(5), 1, 5) = 99743 Then
  12.             BRR(I, 3) = Split(ARR(3, 1), "|")(39)
  13.         ElseIf Mid(Split(ARR(I, 1), "|")(5), 1, 5) <> 99743 Then
  14.             BRR(I, 3) = " "
  15.         End If
  16.     Next
  17.     Range("H2").Resize(UBound(BRR), 3) = BRR
  18.     MsgBox "用时:" & Timer - T
  19. End Sub
复制代码

123.zip

208.27 KB, 下载次数: 19

发表于 2013-1-14 22:17 | 显示全部楼层
回复

使用道具 举报

发表于 2013-1-15 09:06 | 显示全部楼层    本楼为最佳答案   
  1. Sub YY()
  2.     T = Timer
  3.     ARR = Range("D2:D" & Range("D65536").End(3).Row)
  4.     ReDim BRR(1 To UBound(ARR), 1 To 3)
  5.     Range("I1") = "金额"
  6.     Range("H1") = "货号"
  7.     Range("J1") = "礼券金额"
  8.     For I = 1 To UBound(ARR)
  9.         BRR(I, 2) = Split(ARR(I, 1), "|")(39)
  10.         BRR(I, 1) = Split(ARR(I, 1), "|")(5)
  11.         If Mid(Split(ARR(I, 1), "|")(5), 1, 5) = 99743 Then
  12.             BRR(I, 3) = Split(ARR(3, 1), "|")(39)
  13.         ElseIf Mid(Split(ARR(I, 1), "|")(5), 1, 5) <> 99743 Then
  14.             BRR(I, 3) = " "
  15.         End If
  16.     Next
  17.     Range("H2").Resize(UBound(BRR), 3) = BRR
  18.     MsgBox "用时:" & Timer - T
  19. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
w13579 + 3 神马都是浮云

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-1-15 09:43 | 显示全部楼层
zjdh 发表于 2013-1-15 09:06

謝謝比我那個要快6倍的速度{:161:}果然是高人
回复

使用道具 举报

 楼主| 发表于 2013-1-15 15:10 | 显示全部楼层
zjdh 发表于 2013-1-15 09:06

繼續問個I 列 求和改怎麼寫 值位置隨便
回复

使用道具 举报

发表于 2013-1-15 19:38 | 显示全部楼层
  1. Sub YY()
  2.     T = Timer
  3.     ARR = Range("D2:D" & Range("D65536").End(3).Row)
  4.     ReDim BRR(1 To UBound(ARR) + 1, 1 To 3)
  5.     Range("I1") = "金额"
  6.     Range("H1") = "货号"
  7.     Range("J1") = "礼券金额"
  8.     For I = 1 To UBound(ARR)
  9.         BRR(I, 2) = Split(ARR(I, 1), "|")(39)
  10.         BRR(I, 1) = Split(ARR(I, 1), "|")(5)
  11.         If Mid(Split(ARR(I, 1), "|")(5), 1, 5) = 99743 Then
  12.             BRR(I, 3) = Split(ARR(3, 1), "|")(39)
  13.         ElseIf Mid(Split(ARR(I, 1), "|")(5), 1, 5) <> 99743 Then
  14.             BRR(I, 3) = " "
  15.         End If
  16.         TOL = TOL + BRR(I, 2) * 1
  17.     Next
  18.     BRR(I, 1) = "合 计"
  19.     BRR(I, 2) = TOL
  20.     Range("H2").Resize(UBound(BRR), 3) = BRR
  21.     MsgBox "用时:" & Timer - T
  22. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2013-1-15 20:05 | 显示全部楼层
zjdh 发表于 2013-1-15 19:38

呵呵分文不差,谢谢{:912:}高手
回复

使用道具 举报

 楼主| 发表于 2013-1-15 20:28 | 显示全部楼层
zjdh 发表于 2013-1-15 19:38

Range("H2").Resize(UBound(BRR), 3) = BRR  这句不太明白什么意思{:3012:}
回复

使用道具 举报

 楼主| 发表于 2013-1-15 20:33 | 显示全部楼层
zjdh 发表于 2013-1-15 19:38

试了下发现这个是非常重要的关键 少了他代码就
回复

使用道具 举报

发表于 2013-1-16 09:34 | 显示全部楼层
Range("H2").Resize(UBound(BRR), 3) = BRR   对工作表赋值
对以H2为左上角,扩大到数组的第一维最大数、3列的范围赋值

评分

参与人数 1 +3 收起 理由
w13579 + 3 很给力!

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 18:36 , Processed in 0.334080 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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