- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif)
|
¥i¥H»¡¤@¤U SHEET1 ªº A, B, C 3Äæ¬O¤°»ò¶Ü
¦pªG³]¤@Ó¨Òªº¸Ü
AÄæ¬OµP¤l, BÄæ¬O³f¦W, C¬O¥ó¼Æ
°²³]sheet1¬O
A B C
1 µP¤l ³f¦W ¥ó¼Æ
2 A Z 1
3 A Y 2
4 B X 3
5 A Z 4
¹B¦æ«ásheet2:
A B
1 µP¤l³f¦W ¥ó¼Æ
2 AZ 5
3 AY 2
4 BX 3
¦r¨åª«¥ó¥i¥H¬Ý¦¨¬O¤@Ó¿W¥ßÁôÂêºexcel¶,¤W±¥u¦³key(Áä)©Mitem(È)¨âÓÄæ¦ì
¦p
d("M")=1 -> §âMÁ䪺ȳ]¦¨¼Æ¦r1
d("N")="c" ->§âNÁ䦳ªºÈ³]¦¨¦r"c"
¤W±¨â¦æ·|²£¥Í¤U±4Ó"®æ¤l"
M 1
N c
¦³Ãö¤W±¥N½X·N«ä
d(.[A1] & .[B1]) = .[C1]
´N¬O§â"µP¤l³f¦W"Á䪺ȳ]¦¨c1ªº¥ó¼Æ
¸ò³o¼Ë¼g¤@¼Ë
d("µP¤l" & "³f¦W") = "¥ó¼Æ"
d(a & a.Offset(, 1)) = d(a & a.Offset(, 1)) + a.Offset(, 2)
´N¬O§â¨C¤@¦æªº µP¤l/³f¦W Áä ¥[¤WcÄ檺È
a¬OaÄæ "¥Ña2¦ÜaÄæ³Ì«á¤@Ó®æ" ªº¨ä¤¤¤@Ó®æ¤l
a.Offset(, 1)¬Oa«á1Ä檺®æ¤l (§Y¬O¦P¦CbÄæ)
§Y¬O
d("AZ")=d("AZ")+1
d("AY")=d("AY")+2
d("BX")=d("BX")+3
d("AZ")=d("AZ")+4
¨C¤@¦æ¹B¤@¤U:
d("AZ")=0+1
d("AY")=0+2
d("BX")=0+3
d("AZ")=1+4 (¦]¬°¤§«e d("AZ")¤w¥X²{,¦Ó¥BȬ°1,©Ò¥H©â¥Xì¨ÓªºÈ¦A¥[¤W)
³Ì«á¥Î
.[A1].Resize(d.Count, 1) = Application.Transpose(d.keys)
.[B1].Resize(d.Count, 1) = Application.Transpose(d.items)
¤À§O§â
©Ò¦³Áä¥ÑEXCEL¤WA1¶}©l¦V¤U¦C¥X
©M
©Ò¦³È¥ÑEXCEL¤WB1¶}©l¦V¤U¦C¥X |
|