最大最小值标记

42921783 · 发表于 2016-11-20 14:19

A-C列记录的是不同员工每天的打卡时间，请把每个员工每天的最早打卡时间和最晚打卡时间标记成最小值和最大值，如D列。

liulang0808 · 发表于 2016-11-20 14:22

for循环+字典

liulang0808 · 发表于 2016-11-20 14:32

Sub 按钮1_Click()
Application.ScreenUpdating = False
Set DMax = CreateObject("scripting.dictionary")
Set DMin = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For j = 2 To UBound(arr)
      If DMax.exists(arr(j, 1) & arr(j, 2)) Then
         If arr(DMax(arr(j, 1) & arr(j, 2)), 3) < arr(j, 3) Then
            DMax(arr(j, 1) & arr(j, 2)) = j
         End If
         If arr(DMin(arr(j, 1) & arr(j, 2)), 3) > arr(j, 3) Then
            DMin(arr(j, 1) & arr(j, 2)) = j
         End If

      Else
         DMax(arr(j, 1) & arr(j, 2)) = j
         DMin(arr(j, 1) & arr(j, 2)) = j
      End If
Next j
For j = 0 To DMax.Count - 1
      arr(DMax.items()(j), 4) = "最大值"
      arr(DMin.items()(j), 4) = "最小值"
Next j
[a1].CurrentRegion = arr
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2016-11-20 14:33

具体见附件内容。。。。。

hcm19522 · 发表于 2016-11-20 15:27

{=IF(MAX((A$2:A$20=A2)*(B$2:B$20=B2)*C$2:C$20)=C2,"最大值",IF(MIN(IF((A$2:A$20=A2)*(B$2:B$20=B2),C$2:C$20))=C2,"最小值",""))

yeminqiang · 发表于 2016-11-20 15:41

透视表这样可好？

最大最小值标记.rar (11.46 KB, 下载次数: 4)

wzsy2_mrf · 发表于 2016-11-20 18:22

本帖最后由 wzsy2_mrf 于 2016-11-30 19:30 编辑

这么久不见回，删除！

复制代码

LMY123 · 发表于 2018-7-9 11:03

DMAX和DMIN

jiminyanyan · 发表于 2018-7-9 12:40

LMY123 发表于 2018-7-9 11:03
DMAX和DMIN

弱弱的问一下
DMAX和DMIN 这样标注一下有啥用处。。。

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

[求助] 最大最小值标记

评分