- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 16
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-3-28
|
- Sub zz()
- Dim d As Object, a, k, t, n&
- Set d = CreateObject("scripting.dictionary")
- a = [a1].CurrentRegion.Value
- For i = 1 To UBound(a)
- k = a(i, 2)
- If Not d.exists(k) Then
- d(k) = Array("|" & i, a(i, 3))
- Else
- t = d(k)
- t = Array(t(0) & "|" & i, t(1) + a(i, 3))
- d(k) = t
- End If
- Next
- t = d.items
- For i = 0 To UBound(t)
- k = Split(t(i)(0), "|")
- If UBound(k) < 6 Then
- For ii = 1 To UBound(k)
- n = n + 1
- For j = 1 To UBound(a, 2)
- a(n, j) = a(k(ii), j)
- Next
- Next
- End If
- Next
- [h2].Resize(n, j - 1) = a
- End Sub
½Æ»s¥N½X |
|