ªð¦^¦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

¦^´_ 1# papaya

A = Dir(Path & "\*.xls")
§ï¦¨
A = Dir(Path & "\¿òº|¤j¼Æ¾Ú-¤µ±m539*.xls")

TOP

¥»©«³Ì«á¥Ñ 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

¦^´_ 3# papaya

¤£­n±Nµ{¦¡»P­n­×§ïªºÀɮשñ¦b¦P¤@­Ó¸ê®Æ§¨
A = Dir(Path & "\Àɮ׸ê®Æ§¨¦W\*.xls")
        Do While A <> ""
             With Workbooks.Open(Path & "\Àɮ׸ê®Æ§¨¦W\" & A)

TOP

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

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD