如何用VBA根据条件标记第一次出现的数据行

dz05

求助：如何用VBA根据条件标记第一次出现的数据行

原始数据有10万行，统计每月上班人数，用if(Countifs(,,,)=1,1,"")来标记，Excel 要死半个小时。麻烦帮忙看看用VB如何快速处理？谢谢。




-

dto8323

数组加字典，很简单

dz05

dto8323 发表于 2024-1-26 12:58
数组加字典，很简单

麻烦写个VB？

lhj5286

已写好，看是否满足楼主需求

saghj

For i = 2 To UBound(arr)
    s = arr(i, 2)
    If Not d.Exists(s) Then
      d(s) = 1
      arr(i, 3) = d(s)
    End If
  Next i

dz05

lhj5286 发表于 2024-1-26 14:08
已写好，看是否满足楼主需求

感谢你的回复，但你的程序里只统计了数据里所有员工的数量，没有按月份统计。

即员工1在10月份标记1，在11月份也需要标记1。每个月标记一次。

kittli

Sub text()
    Set d = CreateObject("scripting.dictionary")
    Range("a1").CurrentRegion.Offset(1, 2) = ""
    ar = Range("a1").CurrentRegion
    For i = 2 To UBound(ar)
      yf = Month(ar(i, 1))
      If Not d.Exists(yf) Then Set d(yf) = CreateObject("scripting.dictionary")
      If Not d(yf).Exists(ar(i, 2)) Then
         d(yf)(ar(i, 2)) = 1
      Else
         d(yf)(ar(i, 2)) = ""
      End If
      ar(i, 3) = d(yf)(ar(i, 2))
    Next
Range("a1").CurrentRegion = ar
End Sub

dz05

kittli 发表于 2024-1-26 15:25
Sub text()
    Set d = CreateObject("scripting.dictionary")
    Range("a1").CurrentRegion.Offset(1 ...

thanks.可以得到正确答案。

dz05

kittli 发表于 2024-1-26 15:25
Sub text()
    Set d = CreateObject("scripting.dictionary")
    Range("a1").CurrentRegion.Offset(1 ...

thanks.可以得到正确答案。

dz05

kittli 发表于 2024-1-26 15:25
Sub text()
    Set d = CreateObject("scripting.dictionary")
    Range("a1").CurrentRegion.Offset(1 ...

谢谢，可以得到正确的结果。速度也很快。