首页 > 解决方案 > 对活动单元格上方的单元格范围求和,单元格范围间隔为 3 列

问题描述

在我用数据清除最后一行下方的所有数据后,我偏移到一个活动单元格。活动单元格将位于 I 列中,可能位于 I 列中的任何位置。我想将 G、H 和 I 列范围内活动单元格上方的所有数据相加。

然后将总和放入活动单元格中。如果有人可以提供帮助,不知道如何循环这个会很棒!谢谢。

Range("I" & cells(Rows.Count, "I").End(xlUp).row).Select

ActiveCell.Offset(3, 0).Select

标签: excel

解决方案


Sub Test()

   Dim lCurRow  As Long
   
   'Locates the last FILLED Cell in I and saves row number!
   lCurRow = Range("I" & Rows.Count).End(xlUp).Row

   'Place formula one row down       Formula Creation
   Cells(lCurRow + 1, "I").Formula = "=Sum(I" & lCurRow & ":G1)"

End Sub

全部完成,没有选择。

高温高压


推荐阅读