Excel VB技术求助：实现值变更前的连续计数功能

Hey there! 既然你平时不太用VB，我给你准备了两种实用方案——不用写代码的Excel公式法和适合自动化的VBA宏方法，都能完美满足你「统计A列连续相同值的数量，直到值变更或单元格为空」的需求，毕竟你的数据已经按值排好序、相同值都是连续的，刚好能用上这些方案~

一、Excel公式实现（零代码，快速上手） #

这种方法最适合临时统计，操作超简单：

• 假设你要把计数结果放在B列，先确保A1是表头（如果没有表头就从B1开始）
• 在B2单元格输入公式：

=IF(A2="","",IF(A2=A1,B1+1,1))

• 鼠标放在B2单元格右下角，当光标变成十字形时，下拉填充到所有有数据的行

公式逻辑： #

• 先判断当前A列单元格是否为空，空的话B列直接留空
• 如果单元格非空，对比当前行和上一行的值：相同则计数+1，不同则重置为1

二、VBA宏实现（自动化批量处理） #

如果你需要每次更新数据后一键完成统计，就可以用这个VBA代码：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称 → 选择「插入」→「模块」
3. 把下面的代码粘贴进去：

Sub CountConsecutiveValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的工作表名称，比如"销售数据"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 给计数列加表头
    ws.Cells(1, "B").Value = "计数"
    
    ' 从第二行开始遍历数据
    For i = 2 To lastRow
        ' 非空单元格且和上一行值相同，计数+1
        If ws.Cells(i, "A").Value <> "" And ws.Cells(i, "A").Value = ws.Cells(i - 1, "A").Value Then
            ws.Cells(i, "B").Value = ws.Cells(i - 1, "B").Value + 1
        ' 值变更或新的一组，重置计数为1
        ElseIf ws.Cells(i, "A").Value <> "" Then
            ws.Cells(i, "B").Value = 1
        ' 空单元格则清空对应计数
        Else
            ws.Cells(i, "B").Value = ""
        End If
    Next i
    
    MsgBox "连续值统计完成啦！", vbInformation
End Sub

4. 按下F5运行代码，或者回到Excel界面，点击「开发工具」→「宏」→ 选择CountConsecutiveValues执行

代码亮点： #

• 自动识别A列最后一行数据，不用手动选范围
• 遇到空单元格时自动清空B列的计数，完全贴合你的需求
• 运行完成会弹出提示，结果状态一目了然

工作表示例 #

内容的提问来源于stack exchange，提问作者Therria Fernandez