¦r¨åÂX¥R¥Îªk(¦r¨å+¦Ûqª«¥óÃþ§O)
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-3-24
|
¦^´_ 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 |
|
|
|
|
|
|