嘿，这个需求我太熟了！之前帮朋友处理过类似的递减计数器场景，核心就是要精准获取数据列的最后一行，而不是用固定的35000这种硬编码值。下面给你两种靠谱的实现方式，按需选就行：

方法一：用VBA生成动态COUNTIF公式（支持数据自动更新） #

如果希望后续修改数据后，结果能自动刷新，这种方法最合适。而且针对你提到的结构化表格（就是带[@Column1]这种结构化引用的表格），用ListObject操作会更稳定，不用担心表格位置变化：

Sub FillRemainingCount()
    Dim tbl As ListObject
    Dim computedCol As ListColumn
    Dim lastDataRow As Long
    
    ' 替换成你的表格名称，比如"Table1"
    Set tbl = ThisWorkbook.ActiveSheet.ListObjects("Table1")
    
    ' 检查并添加"Computed"列
    On Error Resume Next
    Set computedCol = tbl.ListColumns("Computed")
    On Error GoTo 0
    If computedCol Is Nothing Then
        Set computedCol = tbl.ListColumns.Add
        computedCol.Name = "Computed"
    End If
    
    ' 获取Column1列最后一行的工作表行号
    lastDataRow = tbl.ListColumns("Column1").Range(tbl.ListRows.Count).Row
    
    ' 给Computed列批量填充动态公式
    ' 公式逻辑：统计当前行到最后一行的Column1中，当前值的出现次数，再减1（排除自身）
    computedCol.DataBodyRange.FormulaR1C1 = _
        "=COUNTIF(R[0]C[-" & (computedCol.Index - tbl.ListColumns("Column1").Index) & "]:R[" & lastDataRow - tbl.HeaderRowRange.Row & "]C[-" & (computedCol.Index - tbl.ListColumns("Column1").Index) & "],[@Column1]) - 1"
End Sub

为什么这么写？ #

• 用ListObject直接操作表格，不用关心表头在哪一行、数据列偏移多少，代码更健壮
• 公式里的范围是动态计算的，从当前行的Column1一直到该列最后一行，完全精准
• 减1是因为COUNTIF会包含当前单元格，我们要的是之后剩余单元格的数量，所以减去自身这一次

方法二：用字典直接计算（大数据效率首选） #

如果你的数据量很大（比如几万行），公式可能会卡顿，这种用VBA字典从后往前统计的方法速度快很多，而且直接生成数值，不需要公式：

Sub CalculateRemainingCount()
    Dim tbl As ListObject
    Dim dataArr As Variant
    Dim resultArr() As Long
    Dim countDict As Object
    Dim i As Long
    
    Set tbl = ThisWorkbook.ActiveSheet.ListObjects("Table1")
    ' 把Column1的数据读进数组，提升效率
    dataArr = tbl.ListColumns("Column1").DataBodyRange.Value
    ReDim resultArr(1 To UBound(dataArr), 1 To 1)
    
    ' 用字典记录每个值从后往前的出现次数
    Set countDict = CreateObject("Scripting.Dictionary")
    ' 从最后一行往前遍历
    For i = UBound(dataArr) To 1 Step -1
        If countDict.Exists(dataArr(i, 1)) Then
            ' 字典里的次数就是当前行之后的出现次数
            resultArr(i, 1) = countDict(dataArr(i, 1))
            ' 更新字典，次数+1
            countDict(dataArr(i, 1)) = countDict(dataArr(i, 1)) + 1
        Else
            ' 第一次遇到该值，之后没有出现，结果为0
            resultArr(i, 1) = 0
            countDict(dataArr(i, 1)) = 1
        End If
    Next i
    
    ' 写入结果到Computed列
    On Error Resume Next
    Dim computedCol As ListColumn
    Set computedCol = tbl.ListColumns("Computed")
    On Error GoTo 0
    If computedCol Is Nothing Then
        Set computedCol = tbl.ListColumns.Add
        computedCol.Name = "Computed"
    End If
    computedCol.DataBodyRange.Value = resultArr
End Sub

逻辑说明 #

从最后一行开始往前数，每遇到一个值，字典就记录它已经出现的次数——这个次数正好是当前行之后的出现次数。比如你的示例里：

• 最后一行YYYY：字典里没有，结果0，字典记为1
• 倒数第二行YYYY：字典里有1，结果1，字典更新为2
• 倒数第三行YYYY：字典里有2，结果2，字典更新为3
  完全匹配你要的2、1、0的效果！

如果是普通单元格区域（非结构化表格） #

要是你用的不是Excel表格，只是普通的单元格（比如A列是数据，B列要放结果），可以用这段代码：

Sub FillRemainingCountForRange()
    Dim lastRow As Long
    Dim dataRng As Range, resultRng As Range
    
    ' 获取A列最后一行（假设A1是表头，数据从A2开始）
    lastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    Set dataRng = Range("A2:A" & lastRow)
    Set resultRng = Range("B2:B" & lastRow)
    
    ' 填充动态公式
    resultRng.FormulaR1C1 = "=COUNTIF(R[0]C[-1]:R[" & lastRow - 2 & "]C[-1],RC[-1]) - 1"
    
    ' 或者用字典方法，把上面的dataArr换成dataRng.Value即可
End Sub

内容的提问来源于stack exchange，提问作者Prashant Balasubramanyan