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

[µo°Ý] «¬ºA¤£²Å¦X¡A¿ù»~13

[µo°Ý] «¬ºA¤£²Å¦X¡A¿ù»~13

§Ú¦bOffice 2016¥i¥H¥¿±`°õ¦æ¥H¤Uµ{¦¡½X¡A¦ý¦bOffice 2010´N¥X²{³o¤@¦æ
  [AF7].Resize(d.Count, 1) = Application.Transpose(d.items)
«¬ºA¤£²Å¦X¡A¿ù»~13ªº°»¿ù
Àˬdªºµ²ªG¬O¦]¬°T.Offset(, -5)³o¤@Äæ(¯Â¤å¦r)¦³ªÅ¥ÕªºÀx¦s®æ¡A­n«ç»ò¼Ë¦bOffice 2010Á׶}³o¼Ëªº¿ù»~?
  1. Set d = CreateObject("Scripting.Dictionary")
  2. For Each T In Range([T7], [T300].End(xlUp))
  3.    If d(T.Value) = "" Then
  4.       d(T.Value) = T.Offset(, -5) & " " & T.Offset(, -4) & " " & T.Offset(, -3)
  5.       Else
  6.       d(T.Value) = d(T.Value) & ", " & T.Offset(, -5) & " " & T.Offset(, -4) & " " & T.Offset(, -3)
  7.    End If
  8. Next

  9. [AF7].Resize(d.Count, 1) = Application.Transpose(d.items)
  10. Set d = Nothing
½Æ»s¥N½X
Jess

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD