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

¨Ì±ø¥ó·j´M¿z¿ï¸ê®Æ¶°¤¤©ó1­ÓÀÉ®×

¨Ì±ø¥ó·j´M¿z¿ï¸ê®Æ¶°¤¤©ó1­ÓÀÉ®×

¦P1­Ó¸ê®Æ§¨¸Ì¦³20­ÓcsvÀÉ®×
·Q¦bÀÉ®×"¶°¤¤00"ªº¤u§@ªí"¶¶§Ç"¤¤ªºB2Àx¦s®æ¿é¤J©Ò­n¿z¿ïªº¼Æ­È©Î¤å¦r
¿z¿ï¦UcsvÀɪºAÄæ
·í²Å¦X¤§¸ê®Æ¾ã¦C¨Ì·Ó»`´M¶¶§Ç½Æ»s¦ÜÀÉ®×"¶°¤¤00"ªº¤u§@ªí"¶°¤¤"¤¤(²Ä1ÄæÅã¥ÜÀɦW,¦p¹Ï01)
·í·j´M¸ê®Æ²Å¦XªÌ¤£¥u1¦C«h¨C1­Ó³£½Æ»s(²Ä1ÄæÅã¥ÜÀɦW,¦p¹Ï01)
·í·j´M¸ê®Æ¨S¦³²Å¦XªÌ´N¥uÅã¥ÜÀɦW(²Ä1ÄæÅã¥ÜÀɦW,¦p¹Ï01)
¹Ï01.jpg

¸ê®Æ.rar (961.26 KB)

¦^´_ 7# samwang


    ·P®¦·P®¦
ÁÂÁÂ

TOP

¦^´_ 6# oak0723-1

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Crr, T, Brr(1 To 10000, 1 To 200), ph$, fn$, n&, C%, x%, j%
Application.ScreenUpdating = False
ph = ThisWorkbook.Path & "\"
With Sheets(1)
    T = .[b2]
    Arr = .Range(.[b4], .[b65536].End(3))
    For x = 1 To UBound(Arr)
        fn = Format(Arr(x, 1), "00"): Arr(x, 1) = fn
        With Workbooks.Open(ph & fn & ".csv")
            Crr = Range("A1").CurrentRegion
            .Close
        End With
        For i = 1 To UBound(Crr)
            If Crr(i, 1) = T Then
                n = n + 1: Brr(n, 1) = fn
                For j = 1 To UBound(Crr, 2): Brr(n, j + 1) = Crr(i, j): Next
                If UBound(Crr, 2) + 1 > C Then C = UBound(Crr, 2) + 1
            End If
        Next
    Next
    .Range("c4:c" & UBound(Arr)).NumberFormatLocal = "@"
    .[c4].Resize(UBound(Arr), 1) = Arr
End With
With Sheets(2)
    .Range("a2").CurrentRegion.Offset(1) = ""
    .Range("a3:a" & n).NumberFormatLocal = "@"
    .[a3].Resize(n, C) = Brr
End With
Application.ScreenUpdating = True
End Sub

TOP

¥»©«³Ì«á¥Ñ oak0723-1 ©ó 2022-7-3 21:44 ½s¿è

¦^´_ 2# samwang


¦P1­ÓÀɮק¨¸Ì¦³20­ÓÀÉ®×,¨Ì¾Ú©Ò¿é¤Jªº¼Æ­È¬°±ø¥ó¨Ó¿z¿ï,±N²Å¦Xªº´N¾ã¦C½Æ»s¶°¤¤¨ìÀÉ®×"¶°¤¤00"ªº¤u§@ªí"¶°¤¤"(¦ý²Ä1­ÓÄæ¦ì­nÅã¥ÜÀɦW)
1>¦bÀÉ®×"¶°¤¤00"ªº"¶¶§Ç"B2Àx¦s®æ¿é¤J¼Æ­È,´N¥H¦¹¼Æ­È»P¶¶§Ç¥h·j´M20­ÓÀɮתºAÄæ¦ì,²Å¦XªÌ´N¾ã¦C½Æ»s¨ì¤u§@ªí"¶°¤¤"(¦ý²Ä1­ÓÄæ¦ì­nÅã¥ÜÀɦW)
2>·í¦P1ÀÉ®×·j´M¨ì²Å¦X¦³´X¦C,´N´N½Æ»s´X¦C,(¦ý²Ä1­ÓÄæ¦ì­nÅã¥ÜÀɦW)
3>·íÀÉ®×·j´M¤£¨ì²Å¦X,¥u²Ä1­ÓÄæ¦ìÅã¥ÜÀɦW,²Ä2Äæ¦ì´NÅã¥Ü0
¹Ï01.jpg

TOP

¦^´_ 3# samwang


    ¶°¤¤00ªºBÄ涶§Ç©MCÀɦW¬O¤H¤u¶ñ¼g¡A¦³¥i¯à20­Ó¡A¦³¥i¯à17...(¦³¥i¯à¤£«ö¶¶ §Ç¡A¸õ¸¹)¡A¨Ì¾Ú¨º¨Ç¸ê°T¥h¬d¸ß»Ý­nªº¼Æ¦r¡A¹ï¶Ü¡H¦³§ä¨ì²Å®Ö«h½Æ¨î¾ã¦C¸ê®Æ¡A¹ï¶Ü¡H¨Ì¾ÚÀÉ®×"¶°¤¤00"ªº"¶¶§Ç"¤u§@ªíªºB2Àx¦s®æ¸Ìªº¸ê®Æ¥h·j´M
¹Ï02.jpg

TOP

¶°¤¤00ªºBÄ涶§Ç©MCÀɦW¬O¤H¤u¶ñ¼g¡A¦³¥i¯à20­Ó¡A¦³¥i¯à17...(¦³¥i¯à¤£«ö¶¶ §Ç¡A¸õ¸¹)¡A¨Ì¾Ú¨º¨Ç¸ê°T¥h¬d¸ß»Ý­nªº¼Æ¦r¡A¹ï¶Ü¡H¦³§ä¨ì²Å®Ö«h½Æ¨î¾ã¦C¸ê®Æ¡A¹ï¶Ü¡H--¬Oªº

TOP

¦^´_ 1# oak0723-1
¶°¤¤00ªºBÄ涶§Ç©MCÀɦW¬O¤H¤u¶ñ¼g¡A¦³¥i¯à20­Ó¡A¦³¥i¯à17...(¦³¥i¯à¤£«ö¶¶ §Ç¡A¸õ¸¹)¡A¨Ì¾Ú¨º¨Ç¸ê°T¥h¬d¸ß»Ý­nªº¼Æ¦r¡A¹ï¶Ü¡H¦³§ä¨ì²Å®Ö«h½Æ¨î¾ã¦C¸ê®Æ¡A¹ï¶Ü¡H

TOP

¦^´_ 1# oak0723-1

¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´»Ý¨D¡A½Ð¦A¸É¥R»¡©ú¤@¤U¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD