[已解决]每个客户每日最后一笔金额筛选

桔子小七 · 发表于 2014-6-20 15:08

又来求救了，各位：
真心觉得自己EXCEL蠢透了，现求救如下：
目标：查询每个客户每日的最后一笔消费

希望获得帮助，谢谢！

最佳答案

baksy

2014-6-20 15:58

本帖最后由 baksy 于 2014-6-20 16:02 编辑

数据重新排序（主要关键字=姓名，次要关键字=时间，升序）
F2复制以下公式、三键回车( 公式复制后,点一下公式编辑栏的任意位置,先按住 shift、ctrl 两个键,然后敲enter键。)
横拉、下拉。
=IF(OR(DAY($D2)<>DAY($D3),$B2<>$B3),B2,"")

跳转到最佳答案楼层

baksy · 发表于 2014-6-20 15:39

本帖最后由 baksy 于 2014-6-20 15:58 编辑

公式错误，删除。

tgydslr · 发表于 2014-6-20 15:47

这么好的数据，用数据透视表最好了

baksy · 发表于 2014-6-20 15:58

本帖最后由 baksy 于 2014-6-20 16:02 编辑

数据重新排序（主要关键字=姓名，次要关键字=时间，升序）
F2复制以下公式、三键回车( 公式复制后,点一下公式编辑栏的任意位置,先按住 shift、ctrl 两个键,然后敲enter键。)
横拉、下拉。
=IF(OR(DAY($D2)<>DAY($D3),$B2<>$B3),B2,"")

云影 · 发表于 2014-6-20 16:32

Sub test()
Dim arr, er(), x&, y As Byte
arr = Range("a1").CurrentRegion.Value
On Error Resume Next
Range("f:i").Clear
ReDim er(1 To UBound(arr), 1 To 4)
For x = 1 To UBound(arr)
If Format(arr(x, 4), "yyyy-m-d") <> Format(arr(x + 1, 4), "yyyy-m-d") Then
k = k + 1
For y = 1 To 4
er(k, y) = arr(x, y)
Next
End If
Next
With Range("f1")
.Resize(k).NumberFormatLocal = "@"
.Resize(k, 4) = er
.CurrentRegion.Borders.ColorIndex = 0
End With
End Sub

复制代码

桔子小七 · 发表于 2014-6-20 17:26

tgydslr 发表于 2014-6-20 15:47
这么好的数据，用数据透视表最好了

如何透视请指点大神！！

桔子小七 · 发表于 2014-6-20 17:49

baksy 发表于 2014-6-20 15:58
数据重新排序（主要关键字=姓名，次要关键字=时间，升序）
F2复制以下公式、三键回车( 公式复制后,点一下 ...

当2014/06/09 2:28:20 与2014/06/09 12:00:00一起是，升序的结果是2014/06/09 12:00:00排在上面，这是错误的。怎么办？？

百丑 · 发表于 2014-6-20 18:03

第一步,根据排序,时间-姓名排序;第二步高级刷选

桔子小七 · 发表于 2014-6-20 18:30

http://www.excelpx.com/thread-327285-1-1.html 各位大神，现在发现新问题，方便的帮忙看看，关于最后日期两笔相同的情况。谢谢！！

tgydslr · 发表于 2014-6-20 18:32

每人每日数据.rar (404.3 KB, 下载次数: 7)

		自动登录	找回密码
密码			注册

[已解决]每个客户每日最后一笔金额筛选

附件不知道上传成功了不?