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

¸ê®Æ¤ñ¹ï

¸ê®Æ¤ñ¹ï

¦U¦ì¤j¤j§A¦n,¸ê®Æ¤ñ¹ï¦p¦ó¿z¿ï±Æ§Ç¥X¤G±i(­«½Æ¤Î³æ¿ï)¶µ¥Ø

¸ê®Æ¤ñ¹ï-110.08.23.rar (21.66 KB)

¤ñ¹ï

½Ð°Ý³o¦³¿ìªk³B²z¶Ü¡H

TOP

¦^´_ 2# sillykin


¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´±zªº»Ý¨D¡A¥i§_½Ð¦A»¡©ú¸Ô²Ó¤@ÂI¶Ü? ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ sillykin ©ó 2021-8-26 11:37 ½s¿è

¦¹Àɮצ³¤T±i¤u§@ªí¡]¤H¤u¦W¥U¡]µ§¼Æ¬ù¤dµ§¡^¡B·|­p¦W¥U(µ§¼Æ¬ù¦Êµ§µ¥)¡B¤ñ¹ï°Ï¡^
¤ñ¹ï°Ï¤u§@ªí³æ»¡©ú¦p¤U
A~DÄæ¦ì¬O±N¤G±i¤u§@ªí¡]¤H¤u¦W¥U¤Î·|­p¦W¥U¡^¨Ì¡y¤á¦W¡z±Æ§Ç
±NA~DÄæ¦ì±Æ§Çµ²ªG¡A¦b¬D¥X¡y¬d¸ß¤é¡z¡]¢ÒÄæ¡^¸ò¡y¤é´Á¡z¡]AÄæ¡^--¡]  ¬Û²Åªº­È  ¡^½Æ¨î¨ìH~KÄæ¦ì
±NA~DÄæ¦ì±Æ§Çµ²ªG¡A¦b¬D¥X¡y¬d¸ß¤é¡z¡]¢ÒÄæ¡^¸ò¡y¤é´Á¡z¡]AÄæ¡^--¡]¤£¬Û²Åªº­È¡^½Æ¨î¨ì¢Ý~¢àÄæ¦ì

TOP

¦^´_ 4# sillykin


½Ð°Ý¦p¹Ï¤ù¬õ¦â¨ºµ§¦³»Ý­n¦C¶Ü?

Â^¨ú.PNG (88.02 KB)

Â^¨ú.PNG

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-8-26 16:32 ½s¿è

¦^´_ 4# sillykin

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
¥t¥~¡A±z´£¨Ñ¸ê®Æ¤£¬Û²Å¦Xªºµ²ªG©M§Úªºµ²ªG¤£¤@¼Ë¡A½Ð¦A½T»{¡AÁÂÁÂ

Sub test()
Dim Arr, xD, Brr(), Crr(), T$, T1$, n%, n1%, i&, j%
Arr = Range([¤ñ¹ï!a1], [¤ñ¹ï!d65536].End(3))
Set xD = CreateObject("Scripting.Dictionary")
ReDim Brr(1 To UBound(Arr), 1 To 4)
ReDim Crr(1 To UBound(Arr), 1 To 4)
n = 1
For i = 2 To UBound(Arr)
    If i = UBound(Arr) Then GoTo 99
    If Arr(i, 1) <> "" And Arr(i + 1, 1) = "" Then
        T = Arr(i, 1) & "_" & Arr(i, 3)
        For i2 = i + 1 To UBound(Arr)
            If Arr(i2, 4) <> "" Then
                T1 = Arr(i2, 4) & "_" & Arr(i, 3)
                If T = T1 Then
                    Brr(n, 1) = Arr(i, 1)
                    Brr(n, 3) = Arr(i, 3)
                    Brr(n + 1, 2) = Arr(i2, 2)
                    Brr(n + 1, 3) = Arr(i2, 3)
                    Brr(n + 1, 4) = Arr(i2, 4)
                    n = n + 2: xD(T1) = 1: Exit For
                End If
            Else
                Exit For
            End If
        Next i2
    End If
99: Next i

For i = 2 To UBound(Arr)
    If Arr(i, 1) <> "" Then
        T = Arr(i, 1) & "_" & Arr(i, 3)
    Else
        T = Arr(i, 4) & "_" & Arr(i, 3)
    End If
    If xD(T) <> 1 Then
        n1 = n1 + 1
        For j = 1 To 4: Crr(n1, j) = Arr(i, j): Next
    End If
Next
Sheets("¤ñ¹ï").[h2].Resize(n, 4) = Brr
Sheets("¤ñ¹ï").[o2].Resize(n1, 4) = Crr
End Sub

TOP

·PÁÂsamwangªº¦^ÂСA¤p§Ì¦b¦¹ÁÂÁ¨ó§U
samwangµ{¦¡¸Õ¹Lµª®×¥¿½T¡C
¬O§_¯à§Q¥Î¤H¤u¦W¥U¡B·|­p¦W¥U¥ý§ì¨ú¨ì¡]¤ñ¹ï°Ï¡^A~DÄæ¦ì¦b¨Ì¡y¤á¦W¡z±Æ§Ç«á¡A¦b°õ¦æ«áÄòµ{§Ç©O¡H¡H

TOP

¦^´_ 7# sillykin


¬O§_¯à§Q¥Î¤H¤u¦W¥U¡B·|­p¦W¥U¥ý§ì¨ú¨ì¡]¤ñ¹ï°Ï¡^A~DÄæ¦ì¦b¨Ì¡y¤á¦W¡z±Æ§Ç«á¡A¦b°õ¦æ«áÄòµ{§Ç©O¡H¡H
>>¤£¦n·N«ä¡A¬Ý¤£À´±zªº»Ý¨D¡A½Ð¸ÑÄÀ¸Ô²Ó¤@ÂI¡AÁÂÁÂ

TOP

§â¡y¤H¤u¦W¥U¡z¡B¡y·|­p¦W¥U¡z¸ê®Æ§ì¨ì¤ñ¹ï°ÏA~DÄæ¦ì¤¤¡A¦b¨Ì¡y¤á¦W¡z±Æ§Ç¡AÆä¦b¨Ì¡]­«ÂЭȡ^¡B¡]¤£­«ÂЭȡ^¬D¿ï¥X¨Ó¡]³o¶ô¨Ì¤j¤j©Ò´£¨Ñµ{¦¡¥i§¹¦¨¡^Æå¡C
¥Ø«e¥u®t¤H¤u¦W¥U¡B·|­p¦W¥U¬°¸ê®Æ®wÆä¦W¥U³£·|©ñ¦b³o¤G­Ó¦W¥U¤¤Æå
§â¡y¤H¤u¦W¥U¡z¡B¡y·|­p¦W¥U¡z¸ê®Æ§ì¨ì¤ñ¹ï°ÏA~DÄæ¦ì¤¤¡A¦b¨Ì¡y¤á¦W¡z±Æ§Ç
¦]¬°¡A¦W¥UÁÙ­n´_»s¨ì¤ñ¹ï°Ï¡A¦b¨Ì¡y¤á¦W¡z±Æ§Ç¡A¤~¯à¬D¿ï¡]­«ÂЭȡ^¡B¡]¤£­«ÂЭȡ^

TOP

¦^´_ 9# sillykin


§â¡y¤H¤u¦W¥U¡z¡B¡y·|­p¦W¥U¡z¸ê®Æ§ì¨ì¤ñ¹ï°ÏA~DÄæ¦ì¤¤¡A¦b¨Ì¡y¤á¦W¡z±Æ§Ç
>> §Ú¤£¤F¸Ñ¡A¦b¨Ì¡y¤á¦W¡z±Æ§Ç¡A¬°¤°»ò¥Ò1¡B¥Ò10¡B¥Ò11...¥Ò2¡A³W«h¬O¤°»ò?
¸ê®Æ±Æ¦C¡A·|­p¦W¥U*2µ§¡B¤H¤u¦W¥U*1µ§¡B·|­p¦W¥U*1¡B¤H¤u¦W¥U*1µ§.... ¡A³W«h¬O¤°»ò?
¥i§_´y­z¸Ô²Ó¤@ÂI?ÁÂÁÂ

Â^¨ú.PNG (22.35 KB)

Â^¨ú.PNG

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD