Excel按1000数值间隔区间筛选并统计对应行数的方法求助

你可以优先选择无代码方案实现需求，操作门槛低，处理2万行数据效率足够；如果需要学习VBA实现，也可以参考后续的入门级代码方案：

方案1：内置功能快速实现（无代码，推荐） #

假设你要统计的数值列是A列，数据从第2行到第20001行：

• 第一步：新增辅助列（比如B列），B2单元格输入公式 =FLOOR(A2,1000)，下拉填充到所有数据行。这个公式会自动把A列数值向下取整到最近的1000整数倍，999会得到0、1000得到1000、1999得到1000，刚好匹配你要的分组规则。如果需要直接显示为「0-999」这类区间格式，可以把公式改成 =FLOOR(A2,1000)&"-"&FLOOR(A2,1000)+999
• 第二步：插入数据透视表，行字段选择刚才的辅助列B，值字段选任意数据列（比如A列），值汇总方式设为「计数」，就能直接得到每个1000间隔区间的记录数。

方案2：VBA实现（适合需要批量重复操作的场景） #

如果你要学习用宏/VBA实现，可以按以下步骤操作：

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 左侧工程窗口右键点击你的工作簿名称，选择「插入」-「模块」
3. 在弹出的代码窗口粘贴以下代码：

Sub 按千位间隔统计()
    Dim ws As Worksheet
    Dim dataArr, countArr(0 To 350) As Long ' 350000/1000=350个区间
    Dim i As Long, groupIdx As Integer
    
    ' 把Sheet1改成你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 读取A列所有数值，可修改A为你的实际数据列
    dataArr = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value
    
    ' 遍历统计各区间记录数
    For i = 1 To UBound(dataArr)
        If IsNumeric(dataArr(i, 1)) Then
            groupIdx = Int(dataArr(i, 1) / 1000)
            If groupIdx <= 350 Then countArr(groupIdx) = countArr(groupIdx) + 1
        End If
    Next i
    
    ' 结果输出到C、D列，可自行修改输出位置
    ws.Range("C1") = "区间"
    ws.Range("D1") = "记录数"
    For i = 0 To 350
        ws.Range("C" & i + 2) = i * 1000 & "-" & (i * 1000 + 999)
        ws.Range("D" & i + 2) = countArr(i)
    Next i
End Sub

4. 按F5直接运行代码，或者关闭编辑器回到Excel界面，按Alt+F8选择对应宏名点击执行即可。

内容的提问来源于stack exchange，提问作者P.Kats