Question

我正在学习如何自动执行每周销售报告，其中我的主要工作表使用VLOOKUP来引用其他工作表的销售。标头是从第1周到当前周。如何将公式应用于每一列，直到最后一列？

在这里，我记录了将一个公式插入第一列的宏。

Sub Macrotesting()
'
' Macrotesting Macro
'

'
    Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP([@[Internal ID]],sales[#All],3,FALSE),0)"
    Range("L3").Select
    Range("CL[Week 1]").FormulaR1C1 = _
        "=IFERROR(VLOOKUP(CL[@[Internal ID]],sales[#All],3,FALSE),0)"
End Sub

我不知道如何从另一个表的第3列访问第1周的销售额所在的每个列，而在第4列的第2周进行迭代，等等。

Answer 1

如果您希望操纵公式并遍历一组数字，则可以执行以下操作：

For wknum = 1 To thiswknum

    Range("CL[Week " & wknum & "]").FormulaR1C1 = _
            "=IFERROR(VLOOKUP(CL[@[Internal ID]],sales[#All]," & wknum + 2 & ",FALSE),0)"

Next

显然，您需要以某种方式检测/设置thiswknum，我将其留给您。

每列应用公式

1 个答案: