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

[µo°Ý] ±N¤½¦¡Âন­Èªº¥¿½Tµ{¦¡½X´¡¤J¥¿½Tªº¦ì¦C¡C

[µo°Ý] ±N¤½¦¡Âন­Èªº¥¿½Tµ{¦¡½X´¡¤J¥¿½Tªº¦ì¦C¡C

¥»©«³Ì«á¥Ñ papaya ©ó 2020-8-3 08:34 ½s¿è

'¨ú$E2:$P3ªº­«½Æ­È,¶ñ¤JQ2      '¦C34
    .[Q2].FormulaArray = "=IF(COLUMN(A1)>SUM(N(COUNTIF($E2:$P3,ROW($1:$49))>1)),"""",SMALL(IF(COUNTIF($E2:$P3,ROW($1:$49))>1,ROW($1:$49)),COLUMN(A1)))"
    .[Q2].Copy .[R2]
    .[Q2:R3].Copy .[Q4:R25]       '¦C37
'    .[Q2:R25] =.[Q2:R25].Value   '¦C38
¤W­z¦C38ªº.[Q2:R25] =.[Q2:R25].Value¥u¯à±N²Ä1­Ó¿é¤Jªº¤é´Áªº.[Q2:R25]¥¿½TÂন­È¡A
²Ä2­Ó(§t)¤§«á¿é¤Jªº¤é´Áªº.[Q2:R25] ¤]·|= ²Ä1­Ó¿é¤Jªº¤é´Áªº.[Q2:R25]ªº­È(¿ù»~­È) ¡C

½Ð±N¤W­z¦C38ªº.[Q2:R25] =.[Q2:R25].Valueªº¥¿½Tµ{¦¡½X¡A´¡¤Jµ{¦¡½Xªº¥¿½T¦ì¦C¡C
ÁÂÁ¡I
´ú¸ÕÀÉ¡J 0803.rar (689.28 KB)

¥»©«³Ì«á¥Ñ papaya ©ó 2020-8-3 10:33 ½s¿è

¦^´_ 1# papaya
¸Éµù :
¥Ø«e´ú¸ÕÀɪº"xlsÀÉ"¸ê®Æ§¨¡A¥u©ñ¸m~"¦X¼Æ±Æ§Ç"ªºÀÉ®×~©Ò¥H"»Ý¨D®ÄªGÀÉ"¥uÅã¥Ü"¦X¼Æ"¤u§@ªíªºQ2:R25ªº­È¡F
¦pªG´ú¸ÕÀɪº"xlsÀÉ"¸ê®Æ§¨¡A¦³©ñ¸m~"§¡­È±Æ§Ç"©M"§À¼Æ±Æ§Ç"ªºÀÉ®×~«h"»Ý¨D®ÄªGÀÉ"¤]·|Åã¥Ü"§¡­È"©M"§À¼Æ"µ¥¤G­Ó¤u§@ªíªºQ2:R25ªº­È¡C
ÁÂÁÂ !

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2020-8-4 06:45 ½s¿è

©Ó»Xµ{¦¡½Xªºªº­ì§@ªÌ¡A¦³¥[µù¸Ô²Óªº¤å¦r»¡©ú~¥J²Ó¬ãŪ«á~
¦b¦C69´¡¤J      ¦¹ªí.Parent.Sheets(K1).Cells(D(Key), "Q").Resize(, 2) = ¦¹ªí.Parent.Sheets(K1).Cells(D(Key), "Q").Resize(, 2).Value

°ÝÃD¤w¸Ñ¨M¤F~ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD