Question

我是VBA Excel的新手，主管让我做一些宏，最终的目的是插入行并加上一定的单元格值，

please click this for the image 我不知道功能是什么，但我知道逻辑，读取A8的值：B8然后读取到单元格A9：B9以下，如果为空则继续，直到值不同，然后插入行

当在“20DRY”列下插入行时，“40DRY”，“40HDRY”是单元格值BAS，ERS，LSS的和。

非常感谢任何帮助。

编辑：

我的问题，我们如何为临时数组添加值，并转到下面的下一个单元格，例如A8转到A9，如果我们从当前数组和下一个数组中找到不同的值，则连续循环然后我们创建一个新的整行，SUM某些列？

很抱歉，如果我之前没有提到这一点。

Answer 1

我不确定你想要什么。我猜是某种动态求和方法？如果是这样，请尝试下面的脚本。

  totalAtoZ = 0
    For i = 7 To LastRowCusip - 1
        totalAtoZ = totalAtoZ + WorksheetFunction.Count(Range("J" & i & ":J" & i))
    Next

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & totalAtoZ & "]C:R[-1]C)"

这将开始在第7行求和并转到范围的末尾，因此它可以向下行10行，或100行，或更多或更少。这对你有帮助吗？

使用循环条件插入行并对某个单元格值求和

1 个答案: