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

¦P¤@µ{¦¡¥N½X¦b¤u§@ªí»P¼Ò²Õ°õ¦æ¥X²{1004

¦P¤@µ{¦¡¥N½X¦b¤u§@ªí»P¼Ò²Õ°õ¦æ¥X²{1004

For Each arr In Range([¥N¸¹!y1], [¥N¸¹!z65536].End(xlUp))
    If arr(1, 2) <> "" Then d(arr(1, 2) & "-") = arr(1, 1)
Next
¤W­±¥N½X¦b¼Ò²Õ¥i²Õ¥¿±`°õ¦æ
¦ý©ñ¦b¤u§@ªí¡]data),¤Þ¥Î¥N¸¹¤u§@ªí¸ê®Æ¡A«h¥X²{1004¿ù»~¥d¦í¤F¡A¬G©ñ¦b¤u§@ªí(data),¤W­±¥N½X¦p¦ó§ï¡H
¤S¦b¤u§@ªí¤¤³]­p¥N½X¡A¤S¸Óª`·N¤°»ò¡H
§Æ±æ¤ä«ù!

For Each arr In Range([¥N¸¹!y1], [¥N¸¹!z65536].End(xlUp))
    If arr(1, 2)  "" Then d(arr(1, 2) & " ...
s7659109 µoªí©ó 2019-2-27 10:46


[¥N¸¹!y1] §Î¦¡ªºÀx¦s®æ¦ì§}ªí¥Ü¤è¦¡,
¨ä¹ê¬O¥Î¦bÀx¦s®æªº¤½¦¡¸Ìªº,
¶È¾A¥Î©ó¥þ°ìµ{¦¡(§Y¼Ò²Õ¤º)¤¤.

­Y¬O¦b¤u§@ªí¤ºªºVBµ{¦¡«hÀ³¨Ï¥Î Sheets("¤u§@ªí¦WºÙ").[Àx¦s®æ¦ì§}] ªºªí¥Ü¤è¦¡ :
  1. Sub nn()
  2.   Dim arr, d

  3.   Set d = CreateObject("Scripting.Dictionary")

  4.   With Sheets("¥N¸¹")
  5.     For Each arr In .Range(.[y1], .[z65536].End(xlUp))   ' Range «e­±¥²¶·¦³­ÓÂI, ¤~¯à¯Á¤Þ¨ì Sheets("¥N¸¹") ¸ÌªºÀx¦s®æ
  6.       If arr(1, 2) <> "" Then d(arr(1, 2) & "-") = arr(1, 1)
  7.     Next
  8.   End With
  9. End Sub
½Æ»s¥N½X

TOP

¥t¥~ For Each arr In .Range(.[y1], .[z65536].End(xlUp))¤]¦³¤H³o¼Ë¼g For Each arr In .Range(.[y1], .[y65536].End(xlUp)),½T¦³¤@¼Ëªº®ÄªG¡A¬°¦ó¡H¤£¸Ñ¡H
§Æ±æ¤ä«ù!

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2019-3-5 22:50 ½s¿è
¥t¥~ For Each arr In .Range(.[y1], .[z65536].End(xlUp))¤]¦³¤H³o¼Ë¼g For Each arr In .Range(.[y1], .[ ...
s7659109 µoªí©ó 2019-3-4 08:48


¨º¨â­Ó¦¡¤lµ²ªG¬O¤£¤@¼Ëªº³á,
­n¤F¸Ñ¨ä­ì¦]­º¥ý­nª¾¹D Range.End(xlUp) ¬O¬Æ»ò·N«ä.

©Ò¿× Range.End(xlUp) ¬O«ü :

±q Range ³o­ÓÀx¦s®æ¶}©l "©¹¤W" §ä¨ì²Ä¤@­Ó¦³¸ê®ÆªºÀx¦s®æ,¶Ç¦^¸ÓÀx¦s®æ

©Ò¥H§A¤W­±Á|ªº¨Ò¤l¨â­Ó¦¡¤lµ²ªG¬O¤£¦Pªº,
§ä¨ìªºÀx¦s®æ¤@­Ó¦b Z Äæ, ¤@­Ó¦b X Äæ,
¥i¯à·|¦C¸¹¬Û¦P, (¦P¦Cªº¨âÄæ³£¦³¸ê®Æ®É)
¦ý¤£·|¬O¦P¤@­ÓÀx¦s®æ.

«e­±¦A¥[¤W Range(.[y1],  «á,
«eªÌ·|¹M¾ú Y »P Z ¨âÄ檺¼Ðªº¦C,
«áªÌ«h¥u·|¶] Y (¤]¥u¦³³o¤@­Ó)Ä檺¼Ðªº¦C³á.

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD