- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 150
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-6-30
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¤ß¤½¯q¾±³¹ ¼ö¤ß¤½¯q¾±³¹](images/common/medal15.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 1# glriffy_su
¸Õ¸Õ¬Ý- Sub ex()
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- Set d2 = CreateObject("Scripting.Dictionary")
- With ¤u§@ªí1 '¨Ó·½¤u§@ªí
- r = 3
- Do Until .Cells(r, 2) = ""
- mystr = .Cells(r, 1).Text & "," & Split(.Cells(r, 2), ".")(0)
- d1(mystr) = d1(mystr) + .Cells(r, 3)
- d2(mystr) = d2(mystr) + .Cells(r, 3)
- For Each a In .Range(.[E2], .[E2].End(xlToRight))
- d(mystr & "," & a) = d(mystr & "," & a) + Cells(r, a.Column)
- Next
- r = r + 1
- Loop
- End With
- With ¤u§@ªí2 '¥Ø¼Ð¤u§@ªí
- r = 3
- For Each ky In d1.keys
- .Cells(r, 1).Resize(, 2) = Split(ky, ",")
- .Cells(r, 3) = d1(ky)
- .Cells(r, 4) = d2(ky)
- For Each a In .Range(.[E2], .[E2].End(xlToRight))
- .Cells(r, a.Column) = d(ky & "," & a)
- Next
- r = r + 1
- Next
- End With
- End Sub
½Æ»s¥N½X |
|