ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦r¨åÂX¥R¥Îªk(¦r¨å+¦Û­qª«¥óÃþ§O)

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD