将可变长度单元格添加到公式中 R1C1 中的总公式答案

【问题标题】：Adding Variable Length Cells to total formula in R1C1 in formula将可变长度单元格添加到公式中 R1C1 中的总公式
【发布时间】：2020-07-08 20:29:21
【问题描述】：

我有一个公式，可以根据计算出的项目将跨越的月数创建 x 列数据。我正在尝试制定一个宏以将公式输入到单元格中以计算单元格。它需要添加的列数因项目而异。我尝试了一些脚本，但不知道如何继续它，但仍在尝试。

Columns to be calculated

Sub Totals()

Dim SumRange As Integer
Dim AddCell As Range

Sheets("Tracking (DAYS)").Select
Sheets("Tracking (DAYS)").Range("E4").Select

Do Until IsEmpty(ActiveCell.Offset(-1, 0))

Set AddCell = ActiveCell.Offset(0, 3)
Range("E4").FormulaR1C1 = _
        "=IF([@[Resource Name]]="""",""""," & AddCell & ")"


Loop



End Sub

【问题讨论】：

不太清楚您要达到的目标。在 E4 中，您想要预测日历的总和？
抱歉难以解释。但简而言之，我正在寻求添加所有预测日历的列。现在，它需要添加的列数将根据项目预计运行的月数而有所不同。

标签： excel vba

【解决方案1】：

我的最佳猜测解决方案：

Sub Totals()
    Lc = Sheets("Tracking (DAYS)").Cells(3, 999).End(xlToLeft).Column
    Sheets("Tracking (DAYS)").Range("E4").FormulaR1C1 = _
    "=SUMIF(R3C8:R3C" & Lc & ",""*(Forecast) Calendar"",R4C8:R4C" & Lc & ")"
End Sub

【讨论】：

谢谢。大部分工作。如何从“R4C8:R4C”部分中删除“$”？
只需删除 4 : ...RC8:RC" & Lc & ")"
很抱歉让您感到非常痛苦，但您能帮忙解释一下这个公式是如何工作的吗？我问，因为我正在调整它以适应我需要应用它的其他工作表。再次感谢您！
“这个公式”是什么意思？更多详情：SUMIF, R1C1