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

[µo°Ý] ¿é¤J¸ê®Æ»P³øªíªº°ÝÃD

[µo°Ý] ¿é¤J¸ê®Æ»P³øªíªº°ÝÃD

½Ð°Ý¡G
¦b¿é¤Jªí¶À¦â°Ï¶ô¤º¿é¤J¸ê®Æ¡A·|¦b101,102,103.......¤u§@ªí¤¤§e²{¥X¨Ó,¤½¦¡­n¦p¦ó³]©w©O¡H
¥Ñ©ó³øªí(¤u§@ªí)¦³20¦h­Ó¡AµLªk«Ü§Öªº§¹¦¨¸ê®ÆÁä¤J¡C
ÁÂÁ¡I

¼Æ­È.zip (15.53 KB)

¦^´_ 1# q1a2z5

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub tt()
Dim Arr, Brr(1 To 13, 1 To 1), T, T2, i%, j%, Y%, N%, N1%
Y = 3
For sh = 2 To Sheets.Count
    With Sheets(sh).Range("A4:G12")
        Arr = .Value
        For i = 1 To 4
            For j = 2 To UBound(Arr, 2)
                If InStr(Arr(i, j), "¤ë") = False Then GoTo 98
                T = Mid(Arr(i, j), 1, Len(Arr(i, j)) - 1): T2 = Arr(i + 1, j)
                If T2 <> "" Then N = N + 1: Brr(T + 1, 1) = T2
98:         Next j
        Next i
        If N > 0 Then
            Brr(1, 1) = Sheets(sh).Name
            Sheets("¿é¤Jªí").Cells(2, Y).Resize(13, 1) = Brr
            Erase Brr
        End If      
        For i = 5 To 8
            For j = 2 To UBound(Arr, 2)
                If InStr(Arr(i, j), "¤ë") = False Then GoTo 99
                T = Mid(Arr(i, j), 1, Len(Arr(i, j)) - 1): T2 = Arr(i + 1, j)
                If T2 <> "" Then N1 = N1 + 1: Brr(T + 1, 1) = T2
99:         Next j
        Next i
        If N1 > 0 Then
            Brr(1, 1) = Sheets(sh).Name
            Sheets("¿é¤Jªí").Cells(16, Y).Resize(13, 1) = Brr
            Erase Brr
        End If
        If N > 0 Or N1 > 0 Then N = 0: N1 = 0: Y = Y + 1
    End With
Next
End Sub

TOP

¦^´_ 2# samwang

·PÁ§Aªº¸Ñµª¡A¦ý§Ú¤£ª¾¦p¦ó°õ¦æ¡H
ÁÂÁ¡I

TOP

¦^´_ 3# q1a2z5

¤W¶ÇÀɮסA½Ð°õ¦æ¬Ý¬Ý¡AÁÂÁ¡C

¼Æ­È.zip (26.31 KB)

TOP

¦^´_ 4# samwang

¤£¦n·N«ä¡A§Ú¨S¦³±N°ÝÃD°Ýªº«Ü²M·¡¡A§Úªº°ÝÃD¬O¦b¿é¤Jªí¶À¦â°Ï¶ô¤º¨Ì§Ç¿é¤J¸ê®Æ¡]¼Æ­È¡^¡A·|¥ß§Y¦b¦U³øªí101,102,103¤u§@ªí¡]¬õ¦â°Ï¶ô¤º)Åã¥Ü¥X¨Ó¡A
¦]¬°¦b¤u§@ªí§@¤@¦¸©Êªº¿é¤J¥þ³¡¸ê®Æ·|¤ñ¸û¤è«K¡C

ÁÂÁ¡I

TOP

¦^´_ 5# q1a2z5

§Ñ¤F¤W¶Çªþ¥ó¡A¤w¸É¤W¡AÁÂÁ¡I

¼Æ­È.zip (15.49 KB)

TOP

¦^´_ 5# q1a2z5

¤£¦n·N«ä¡A¦Û¤v²Ê¤ß¤j·N¡A¨S¬Ý²M±zªº»Ý¨D¡A§Ú¦A¨Ó·Q¬Ý¬Ý¡AÁÂÁ¡C

TOP

¦^´_ 6# q1a2z5


¦pªþ¥ó½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

¼Æ­È0417.zip (26.24 KB)

TOP

¦^´_ 8# samwang

ÁÂÁ¤j¤jªº¸Ñµª¡A¦ý¤é«á¦b¤u§@¤W¦³¥i¯à·|¸I¨ìÃþ¦üªº°ÝÃD¡A
½Ð±Ð¦p¦ó¾Ç²ß¤@¨Ç²³æ°ò¥»ªº¤½¦¡©Îµ{¦¡¡A¨Ò¦p¡G¦b¤u§@ªí1ªºB3(©ÎBÄæ)Àx¦s®æ¿é¤J¸ê®Æ¡A¦b¤u§@ªí2ªºC5©Î¨ä¥LªºÀx¦s®æÅã¥Ü¡C

ÁÂÁ¡I

TOP

¦^´_ 9# q1a2z5

¤£¦n·N«ä¡A¯uªº¤£ª¾¹D±zªº»Ý¨D¡A©ÎªÌ±z¤è«K¤W¶ÇÀɮסA§Ú¦A¨Ó¬ã¨s¤@¤U¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD