¦r¨åÂX¥R¥Îªk(¦r¨å+¦Ûqª«¥óÃþ§O)
- ©«¤l
- 406
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 453
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2021-7-31
|
¦r¨åÂX¥R¥Îªk(¦r¨å+¦Ûqª«¥óÃþ§O)
¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-5-18 16:23 ½s¿è
¹ï©ó¸ê®Æ³B²z¨Ó»¡ "¦r¨å" ¬O¤@Ó«D±`¦n¥Îªºª«¥ó¡A
¥i¥H§Ö³t¬d§ä»Ýnªº¸ê®Æ¡AVBA¦Ñ¤âªÖ©w¤£¯¥Í
¦ý¬O ¦r¨åªº®æ¦¡ 1Ó Key ¥u¹ïÀ³1Ó Item¡A¨S¦³ Item2,Item3,Item4........
¹ï©óVBA¦Ñ¤â¨Ó»¡¡A³o¤£¬O°ÝÃD¡A¥i¥Îªº¤èªk¤Ó¦h¤F
EX1:¥i¥H¥ÎItem ¬ö¿ý½s¸¹ ¡A¥ý¥Î¦r¨å¬d½s¸¹(²Ä1¨B)¡A¦A§Q¥Î½s¸¹¥h¬d·Qn¸ê®Æ(²Ä2¨B)
EX2:©ÎªÌ§â"¤À¹j²Å¸¹"¤]¶ë¤J Item¡A¼´¥X¸ê®Æ«á(²Ä1¨B)¡A¦A°µ¸Ñ¦r¦ê(²Ä2¨B)¡A¸Ñ¥X·Qnªº¸ê®Æ
¦ý¬O³o¨Ç¤èªk³£»Ýn2¨B¨Ó¼´¥X»Ýnªº¸ê®Æ¡A¹ï©óVBA·s¤â¨Ó»¡¡A¥i¯à´N¤ñ¸û¨S¨º»ò"ª½Ä±"¡A¬Ýµ{¦¡¤£©öÀ´
©Ò¥H§Ú"´£¨Ñ¦r¨å+¦Ûqª«¥óÃþ§O"ªº¤è¦¡¡A¨ÓÂX¥R¦r¨åªº Item
½Ð¸Ôªþ¥ó (¦r¨å+°}¦Cªº¥Îªk¥u¬O¶¶±a´£¨Ñ¡AVBA·s¤â¥i¯à¤ñ¸û¤£©öÀ´)
¦r¨åÂX¥R¥Îªk(¦r¨å+¦Ûqª«¥óÃþ§O).rar (36.49 KB)
|
-
1
µû¤À¤H¼Æ
-
|
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 1# n7822123
ÁÂÁ«e½ú¤À¨É±N¤@ºû°}¦C©ñ¤J¦r¨åitem¤¤
Sub ¿é¤J¸ê®Æ¨ì¦r¨å2()
Dim Arr As Range, Brr
Set D = CreateObject("Scripting.Dictionary")
Set Arr = Range([û¤u¸ê®Æ!F1], [û¤u¸ê®Æ!A1].End(xlDown))
For R = 2 To Arr.Rows.Count
Key$ = Arr(R, 1)
Brr = Arr(R, 2).Resize(, 5) 'Brr·|¬OÓ2ºû¸ê®Æ°}¦C
'¤p§Þ¥©-Brr°}¦C°ºû«× 2ºû°}¦C=>1ºû°}¦C
Brr = Application.Transpose(Application.Transpose(Brr))
D(Key) = Brr '§â°}¦C¸Ë¨ì¦r¨åªº "Item"
Next R
End Sub |
|
|
|
|
|
|