|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub qq()
- Dim d, arr, r&, i&, j%, aa
- Set d = CreateObject("Scripting.Dictionary")
- r = Cells(Rows.Count, 4).End(xlUp).Row
- arr = Range("d3:f" & r)
- ReDim brr(1 To UBound(arr), 1 To 2)
- For i = 1 To UBound(arr)
- If Len(arr(i, 2)) Then
- If Len(arr(i, 1)) Then
- For j = 2 To 3
- d(arr(i, 1)) = d(arr(i, 1)) + IIf(arr(i, j) = "迟到", 1, 0)
- Next
- End If
- End If
- Next
- For Each aa In d.keys
- If d(aa) = 0 Then d.Remove aa
- Next
- Columns("j:k").Clear
- [j1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
- [j1:k1].Resize(d.Count).Sort key1:=[k1], Order1:=2, Header:=2
- End Sub
复制代码 |
|