- ©«¤l
- 178
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-5-16 21:57 ½s¿è
¦hÁ¨â¦ì¦Ñ®vªº«ü±Ð,¤£¹L§Ú·|¥Îhsiehªº¼gªk,¦n¹³©öÀ´¨Ç.
¥t¥~,§Ú¦³®É¬Ý¤@¨Ç¼gªk,³ßÅw¦b³Ì«á¥[¤W ¥H¤U2¥y...·Q°Ý¤@¤U¨ì©³¦³¤°»ò§@¥Î??
Set myRng1 = Nothing
Set myRng2 = Nothing
------------
¦]¬°n¦bA ¥[¨Çitem no,©Ò¥H......§Úªº¼gªk
Set E = CreateObject("Scripting.Dictionary")
For Each a In Range([B1], [B65536].End(xlUp))
E(Split(a, "-")(0)) = E(Split(a, "-")(0)) + 1
Next
[C1].Resize(E.Count, 1) = Application.Transpose(E.keys)
[D1].Resize(E.Count, 1) = Application.Transpose(E.items)
Dim myRng1 As Range
Dim myRng2 As Range
Set myRng1 = Worksheets("Sheet1").Range("C:D")
Set myRng2 = Worksheets("Sheet2").Range("A:B")
myRng1.Copy Destination:=myRng2
Set myRng1 = Nothing
Set myRng2 = Nothing |
|