Excel精英培训网

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

[已解决]>>>求汇总出每个客户最近一次的交易信息<<<

[复制链接]
发表于 2015-12-19 19:25 | 显示全部楼层 |阅读模式
本帖最后由 iphone9 于 2015-12-20 16:45 编辑

2015-12-20_190944.jpg

用SQL汇总出B-V最近一次出货的记录,效果如Z-AD.rar (14.48 KB, 下载次数: 16)
 楼主| 发表于 2015-12-20 10:51 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2015-12-20 11:08 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2015-12-20 13:30 | 显示全部楼层
回复

使用道具 举报

发表于 2015-12-21 09:55 | 显示全部楼层
有偿编写
QQ57726980
回复

使用道具 举报

发表于 2015-12-21 16:20 | 显示全部楼层    本楼为最佳答案   
  1. Sub grf()
  2.     arr = Range("b3:v" & [b65536].End(3).Row)
  3.     ReDim brr(1 To UBound(arr), 1 To 5)
  4.     Set d = CreateObject("scripting.dictionary")
  5.     For i = 2 To UBound(arr)
  6.         If arr(i, 6) = "销出" Then
  7.             x = arr(i, 2) & arr(i, 3) & arr(i, 4) & arr(i, 5)
  8.             If Not d.exists(x) Then
  9.                 n = n + 1
  10.                 d(x) = n
  11.                 For j = 2 To 5: brr(n, j - 1) = arr(i, j): Next
  12.             End If
  13.             If arr(i, 21) > 0 Then brr(d(x), 5) = arr(i, 8) / arr(i, 21)
  14.         End If
  15.     Next
  16.     [z9].Resize(n, 5) = brr
  17. End Sub
复制代码

用SQL汇总出B-V最近一次出货的记录,效果如Z-AD.rar

18.62 KB, 下载次数: 8

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 16:24 , Processed in 2.062035 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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