samwang

¦^´_ 1# oak0723-1

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

samwang

¦^´_ 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

samwang

¦^´_ 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