Excel累积百分比公式绝对引用适配数据行数问题咨询

该方案无需启用宏，兼容所有Excel版本，适合单表临时计算场景
核心逻辑是自动识别B列最后一个非空单元格的数值，替换固定的$B$2145绝对引用，公式如下：

=B1/INDEX(B:B,COUNTA(B:B))*100

公式说明：

• COUNTA(B:B)：自动统计B列非空单元格总数，即当前数据的实际行数
• INDEX(B:B,COUNTA(B:B))：自动获取B列最后一行的数值作为分母，不需要手动调整行号
• 如果B列第一行是表头、数据从第二行开始，直接将起始行的公式改为=B2/INDEX(B:B,COUNTA(B:B))*100下拉即可
• 如果是Excel 365/2021及以上版本，且B列中间可能存在空值，可使用兼容性更强的XLOOKUP版本：

  =B1/XLOOKUP(TRUE,B:B<>"",B:B,,0,-1)*100
  

  该公式会从B列底部向上查找第一个非空值作为分母，避免中间空值导致计算错误

该方案适合需要频繁处理多组不同行数数据的场景，一键生成带动态绝对引用的公式
操作步骤：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称→插入→模块
2. 粘贴如下代码：

Sub 自动计算累积百分比()
    Dim lastRow As Long
    ' 自动获取B列最后一个非空行号
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    ' 异常判断，避免分母为0/空数据报错
    If lastRow < 1 Or Cells(lastRow, "B") = 0 Then
        MsgBox "B列无有效数据或最后一行值为0，无法计算"
        Exit Sub
    End If
    ' 示例将计算结果放在C列，若数据有表头，将C1改为C2即可
    Range("C1:C" & lastRow).Formula = "=B1/$B$" & lastRow & "*100"
    ' 可选：设置百分比格式保留2位小数
    Range("C1:C" & lastRow).NumberFormat = "0.00%"
End Sub

3. 按F5运行即可自动完成整列公式填充，生成的公式会自动锁定当前数据最后一行的B列值作为分母

两种方案均自动适配实际数据行数，不会出现数据行数少于2145时引用空单元格导致的#DIV/0报错，替换原有固定引用公式即可直接使用。

内容的提问来源于stack exchange，提问作者Zeeshan Hafeez