双条件序号序列问题

大自在天

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, i&, r&, dic As Object, strKey$
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion
    For i = 2 To UBound(ar)
        strKey = ar(i, 3) & ar(i, 4)
        If Not dic.exists(strKey) Then
            r = r + 1
            ar(i, 2) = r
            dic(strKey) = ""
        Else
            ar(i, 2) = ""
        End If
    Next i
   
    [A1].CurrentRegion = ar
    Set dic = Nothing
    Beep
End Sub

shiruiqiang

大自在天

哪位大佬能用函数公式帮忙写一个,好多人用,有些同事的电脑没有vba库

我走我流

=IF(COUNTIFS(C2:$C$2,C2,D2:$D$2,D2)=1,MAX(B1:$B$1)+1,"")

大自在天

我走我流 发表于 2023-3-13 19:21
=IF(COUNTIFS(C2:$C$2,C2,D2:$D$2,D2)=1,MAX(B1:$B$1)+1,"")

MAX用的秒

lushang2018

lushang2018

你的示例有错误