统计所用单元格内容为“全长”的下方单元格内数值的总和

zwj19850918

表格内有一系列数据，每个系列的数据有一个长度求和（上方单元格显示“全长”，下方为数据）

现在想统计表内所有单元格显示“全长”其下方单元格内的数据，自己写了段代码，报错。请路过的大佬指导下

dragonthree

y = Cells(4, Columns.count).End(1).Column

For j = 5 To y
    If Cells(4, j).Value = "全长" Then
      Cells(5, j) = Application.Sum(Range(Cells(5, j - 1), Cells(200, j - 1)))
    End If
Next

LIUZHU

循环查找单元格

LIUZHU

JSA代码，供参考

1. function 统计(){
   
2.         let rng=Cells.Find("全长");
   
3.         const st=new Set();
   
4.         while(rng!=null && !st.has(rng.Address())){
   
5.                 if (rng.Column!=1) rng.Offset(1,0).FormulaR1C1="=SUM(C[-1])";
   
6.                 st.add(rng.Address());
   
7.                 rng=Cells.FindNext(rng);
   
8.         }
   
9. }

复制代码

LIUZHU

附件，WPS测试，运行JS宏