½Ð¦U¦ì¨ó§U¦p¦ó¦P®É§PŪ¨âÓÄæ¦ì¤º«½Æ¶µ¥Ø°O¿ý
- ©«¤l
- 4
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2013-3-12
|
½Ð¦U¦ì¨ó§U¦p¦ó¦P®É§PŪ¨âÓÄæ¦ì¤º«½Æ¶µ¥Ø°O¿ý
¦U¦ì¤j¤j
Äæ¦ìA¬°«È¤á¡BÄæ¦ìB¬°qÁʲ£«~¡BÄæ¦ìC¬°qÁʶO¥Î
¦p¦ó°O¿ý¨C¦ì«È¤á©ÒqÁʲ£«~ªº¶O¥Î²Îp
³Â·Ð¦U¦ì¤j¤j¤F |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 244
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-10
|
¦^´_ 1# cait
°ò¥»¤W³oºØ°ÝÃD¼Ï¯Ã¤ÀªR¬O³Ì¦n¥Îªº
¯Âºéµ{¦¡°Q½×½Ð°Ñ¦Ò¬Ý¬Ý- Sub nn()
- Set d = CreateObject("Scripting.Dictionary")
- d([A1] & [B1]) = Array([A1], [B1], [C1])
- For Each a In Range([A2], [A2].End(xlDown))
- mystr = a & a.Offset(, 1)
- If IsEmpty(d(mystr)) Then
- d(mystr) = Array(a, a.Offset(, 1), a.Offset(, 2))
- Else
- ar = d(mystr)
- ar(2) = ar(2) + a.Offset(, 2)
- d(mystr) = ar
- End If
- Next
- [E1].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
- Range("E1").CurrentRegion.Sort key1:=[E1], Header:=xlYes
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|