- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 5# Changbanana
¸Õ¬Ý¬Ý¡C
µ²ªG·|¼g¦bI:OÄæ- Sub test()
- Dim arr()
- Dim dic As Object
- Set dic = CreateObject("scripting.dictionary")
- For i = 2 To Range("A65536").End(3).Row
- If dic.Exists(Cells(i, 1).Value) Then
- dic(Cells(i, 1).Value) = dic(Cells(i, 1).Value) + Cells(i, 5).Value
- Else
- dic(Cells(i, 1).Value) = Cells(i, 5).Value
- n = n + 1
- ReDim Preserve arr(1 To 7, 1 To n)
- For j = 1 To 7
- arr(j, n) = Cells(i, j).Value
- Next j
- End If
- Next i
- For i = 1 To n: arr(5, i) = dic(arr(1, i)): Next i
- Columns("I:O").ClearContents
- [I1].Resize(1, 7) = [A1].Resize(1, 7).Value
- [I2].Resize(n, 7) = Application.Transpose(arr)
- End Sub
½Æ»s¥N½X |
|