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

[µo°Ý] ½Ð°Ý¦U¦ì¤Tºû°}¦C¸ê®Æ¡A¸Ó¦p¦ó¤@¦¸¥á¨ìÀx¦s®æ¡H

[µo°Ý] ½Ð°Ý¦U¦ì¤Tºû°}¦C¸ê®Æ¡A¸Ó¦p¦ó¤@¦¸¥á¨ìÀx¦s®æ¡H

½Ð°Ý¦U¦ì­Y¦³¤Tºû°}¦C¸ê®Æ¡A¦pªþ¥óÀɮ׳o¼Ë¡A§Ú¥HX,Y¬°¤ñ¹ïªº¶b¡A­Y«á­±¦³¬Û¦PXY¶b¸ê®Æ«hÂл\«e­±¡A¦ý¬O§Ú¤£¤Ó²M·¡¸Ó«ç»ò¤@¦¸±N¸ê®Æ©ß¥X¡A¦]¬°¦³¨Ç°}¦C¤¤¨Ã¨S¦³¸ê®Æ¡A¦ý¬O¦]¬°»Ý¨D¬OX:1-256,Y:1-256,Data:1-64¡A¥Ø«e§@ªk¬O¥Î°j°éºCºC©ß¥X¡A½Ð°Ý¦U¦ì¬O§_¦³¨ä¥L¤èªk¥i¥H¥[³t³o­Ó°Ê§@¡AÁÂÁ¡ã

Book1.zip (10.05 KB)

¤]³\§AÁ|ªº¨Ò¤l¨Ã¤£¾A·í
ªþ¥ó³oºØ¹Bºâ·F¹À¥Î¨ì¤Tºû°}¦C¡H
¸Õ¸Õ¡G
  1. Sub test()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheets("Data")
  4. a = .Range(.[a2], .[k65536].End(3))
  5. End With
  6. For i = 1 To UBound(a)
  7. d(a(i, 1) & "," & a(i, 2)) = Application.Index(a, i)
  8. Next
  9. Sheets("Temp").[a2].Resize(d.Count, UBound(a, 2)) = Application.Transpose(Application.Transpose(d.items))
  10. End Sub
½Æ»s¥N½X

TOP

·PÁ§Aªº¦^ÂÐÁÂÁ¡I

TOP

¦^´_ 2# oobird


    ©h¥B¤£½×¼Ó¥DªºÁ|¨Ò«ê·í»P§_
¦pÃD­n±N¤Tºû°}¦C¤@¦¸¼g¤J¤u§@ªí
¨Ì¤p§Ìªº²z¸Ñ¡A¤u§@ªí¥u¬O¤@­Ó¤Gºûªº¯x°}¡A¦p¦ó¯à®e¯Ç¤Tºû°}¦C
³o¼Ëªº§@ªk¬O§_¦³¥i¯à¦s¦b?
¤]´N¬O»¡¥ÎÀx¦s®æªº¶°¦X¡A­n¦p¦óªí²{¤Tºû°}¦C?
¤£ª¾¦Ñ­ô¦³¦ó°ª¨£
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

±N¤Tºû°}¦C¤@¦¸¼g¤J¤u§@ªí¥»´N¤£¥i¯àªº
¥u¯à¦b²Ä¤@ºû¤¤´`Àô
¤À§O§â¥¦©ÒÄݪº2¡B3ºû¼g¤J¤u§@ªí

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD