Excel精英培训网

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

[已解决]如何从海量有重复数据中查出最后一笔记录的对应日期及数量

[复制链接]
发表于 2012-9-27 17:07 | 显示全部楼层 |阅读模式
如何从海量有重复数据中查出最后一笔记录的对应日期及数量?请老师们帮忙用VBA实现一下,谢谢!


求助.rar (281.64 KB, 下载次数: 5)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-9-27 17:34 | 显示全部楼层    本楼为最佳答案   

  1. Sub a()
  2.     Dim a, B, d, i
  3.     a = Sheet1.Range("a1").CurrentRegion
  4.     B = Sheet2.Range("a1").CurrentRegion
  5.     Set d = CreateObject("scripting.dictionary")
  6.     For i = 2 To UBound(a)
  7.         d(a(i, 3)) = a(i, 5) & "|" & a(i, 1)
  8.     Next i
  9.     For i = 2 To UBound(B)
  10.         If Len(d(B(i, 1))) Then
  11.             B(i, 2) = Split(d(B(i, 1)), "|")(0)
  12.             B(i, 3) = Split(d(B(i, 1)), "|")(1)
  13.         End If
  14.     Next i
  15.     With Sheet2
  16.         .Range("b2:C" & UBound(B)).ClearContents
  17.         .[a1].Resize(i - 1, 3) = B
  18.     End With
  19. End Sub
复制代码
求助2.rar (289.26 KB, 下载次数: 24)
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 20:13 , Processed in 0.408106 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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