[µo°Ý] ¦Û°Ê©¹«e»¼¸É±Æµ{§Ç¸¹

Andy2483

½Ð±Ð¦U¦ì ¦p¦ó©¹«e»¼¸É±Æµ{§Ç¸¹

»Ý¨D¥Ü·N:

2023-6-30 14:43

20230630.zip (7.46 KB)

¤U¸ü¦¸¼Æ: 7

2023-6-30 14:43

shuo1125

¦^´_ 1# Andy2483
Andy¤j¦n!
µ{«×¦³­­..¶È¯à°w¹ï¤£¦P¶µ¥Ø½s§Ç,¬Ý¦³µL¨ä¥L°ª¤â¥X¤â!
Sub TEST()
    Dim wSht As Worksheet, R&, i&, T$, N&
    Set wSht = Sheets("¤u§@ªí1")
        R = wSht.Cells(wSht.Rows.Count, "D").End(3).Row
            For i = 2 To R
                If wSht.Cells(i, 4).Value <> T Then
                T = wSht.Cells(i, 4).Value
                N = 1
            End If
                wSht.Cells(i, 5).Value = N
                N = N + 1
            Next i
End Sub

Andy2483

¦^´_ 2# shuo1125


    ÁÂÁ«e½ú
¤è®×±¡¹Ò²¤¦³¤£¦P,·¥¨ã±¡¹Ò»Ý¨DªÌ°Ñ¦Ò»ù­È,¤è®×°õ¦æµ²ªG¦p¤U:

2023-7-4 07:29

­ã´£³¡ªL

Sub TEST_1()
Dim xR As Range, T$(2), S$(2), N%
For Each xR In Range([a2], [a65536].End(3))
    T(1) = xR: T(2) = xR(1, 2)
    If T(1) <> S(1) Then S(1) = T(1): S(2) = "\\": N = 0
    N = N - (T(2) <> S(2))
    S(2) = T(2)
    xR(1, 3) = N
Next
End Sub

Sub TEST_2()
Dim xR As Range, T$, TT$, S$, SS$, N%
For Each xR In Range([a2], [a65536].End(3))
    T = xR: TT = T & "\" & xR(1, 2)
    N = N * -(T = S) - (TT <> SS)
    S = T: SS = TT
    xR(1, 3) = N
Next
End Sub

shuo1125

¦^´_ 4# ­ã´£³¡ªL
­ã¤j¯uªº¬OLogic Genius...