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

[µo°Ý] ¦Û°Ê¶}±Ò¦P¸ê®Æ§¨ªº¦UÀɮ׶ñ¤J¸ê®Æ­È

[µo°Ý] ¦Û°Ê¶}±Ò¦P¸ê®Æ§¨ªº¦UÀɮ׶ñ¤J¸ê®Æ­È

´ú¸ÕÀÉ¡J ¦Û°Ê¶}±Ò¦P¸ê®Æ§¨ªº¦UÀɮ׶ñ¤J¸ê®Æ­È.rar (28.18 KB)

½Ð­×¥¿¤U¦Cªºµ{¦¡½X¡A¥H§Q¯à¥¿½T°õ¦æ¡CÁÂÁ¡I
    Sub Ex()
        Dim Path As String, A As String
        Path = ThisWorkbook.Path
        A = Dir(Path & "\*.xls")
        Do While A <> ""
             With Workbooks.Open(Path & "\" & A)
Application.ScreenUpdating = False
                    
'¶ñ¤JAQ1:BJ21ªº­È
   [AQ1].FormulaArray = "=IF(COLUMN(A1)>39-COUNT($B1:$AN1),"""",SMALL(IF(ISNA(MATCH(ROW($1:$39),$B1:$AN1,0)),ROW($1:$39)),COLUMN(A1)))"
   [AQ1].Copy [AR1:BJ1]
   [AQ1:BJ1].Copy [AQ2:BJ21]
   [AQ1:BJ21] = [AQ1:BJ21].Value  'Âà­È
                    
                 
                 .Close True
             End With
            A = Dir
        Loop
    End Sub

¥»©«³Ì«á¥Ñ papaya ©ó 2020-7-21 09:05 ½s¿è

¦^´_ 2# jcchiang
OK¤F!
·PÁ¸ѵª

¦A½Ð°Ý:
¦]¬°"OO¤j¼Æ¾Ú"¦@¦³10­ÓºØÃþ¡A¥B"¤µ±m539"¤§¥~¤SÁÙ¦³"¤j¼Ö³z49"¡A"«Â¤O±m38"~³o¼Ë´N¥²¶·¦A¥t¥~³]¥ß¦n´X¬B­Ó¥DÀÉ¡A©Ò¥H~
¤£ª¾¯à§_§ï¬°¥i¾A¥Î©ó¦P¸ê®Æ§¨¤ºªº¦UxlsÀÉ®× ?
ÁÂÁ±z !

TOP

¦^´_ 4# jcchiang
§¹¦¨¤F~·PÁ±zªº­@¤ß¸Ñµª

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD