|
参与一下。。。- Sub ykcbf() '//2023.12.30
- Set d = CreateObject("Scripting.Dictionary")
- r = Cells(Rows.Count, 2).End(3).Row
- arr = Range("a1:e" & r)
- For i = 2 To UBound(arr)
- If arr(i, 1) = Empty Then arr(i, 1) = arr(i - 1, 1)
- s = arr(i, 1)
- If arr(i, 2) = "OEM_Exp" And arr(i, 5) > 0 Then
- If Not d.exists(s) Then
- d(s) = Array(s, 1, arr(i, 5))
- Else
- t = d(s)
- t(1) = t(1) + 1
- t(2) = t(2) + arr(i, 5)
- d(s) = t
- End If
- End If
- Next
- [h4:j100] = ""
- [h4].Resize(d.Count, 3) = Application.Rept(d.Items, 1)
- MsgBox "OK!"
- End Sub
复制代码
|
|