返回列表 上一主題 發帖

[發問] 自動往前遞補排程序號

[發問] 自動往前遞補排程序號

請教各位 如何往前遞補排程序號

需求示意:
20230630_1.jpg
2023-6-30 14:43


20230630.zip (7.46 KB)
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

本帖最後由 shuo1125 於 2023-6-30 23:29 編輯

回復 1# Andy2483
Andy大好!
程度有限..僅能針對不同項目編序,看有無其他高手出手!
Sub TEST()
    Dim wSht As Worksheet, R&, i&, T$, N&
    Set wSht = Sheets("工作表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

TOP

本帖最後由 Andy2483 於 2023-7-4 07:33 編輯

回復 2# shuo1125


    謝謝前輩
方案情境略有不同,極具情境需求者參考價值,方案執行結果如下:

20230704_1.jpg
2023-7-4 07:29
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

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

TOP

回復 4# 准提部林
准大真的是Logic Genius...

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題