求某值出现的顺序值

zxsea_7426

leepoison 发表于 2023-7-14 16:30
也许你是要VBA,
Sub CountAppearances()
    Dim ws As Worksheet

你这数据越多，越慢，重复次数超多，使用字典一次完成。

**********************************************

Sub CountAppearances()
    Set d = CreateObject("scripting.dictionary")
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long, j As Long
    Dim Count As Integer

    Set ws = ThisWorkbook.Sheets("Sheet1") '假设你要操作的工作表名为 "Sheet1"
    With ws
        LastRow = .Cells(Rows.Count, "G").End(xlUp).Row
        ar = .[g1].Resize(LastRow, 2)
        For i = 1 To LastRow
            ss = ar(i, 1)
            d(ss) = d(ss) + 1
            ar(i, 2) = d(ss)
        Next i
        .[g1].Resize(UBound(ar), 2) = ar
    End With
End Sub

zxsea_7426

cyq4896

在你代码上修改