不确定如何将公式动态粘贴到最后一列和最后一行

Question

使用Excel 2016（64位）的VBA问题

我在前两列（A：B）和第一行（1）中都有标头数据。 我想从单元格C2开始向下动态粘贴一个公式，到最后一行和最后一列。 工作原型如下：

    Dim LstCol As Long
        LstCol = Cells(1, Columns.Count).End(xlToLeft).Column
        Range(Cells(2, "C"), Cells(2, LstCol)).Value =         "=INDEX(RC1,MATCH(R1C,RC2,0))"
    Dim LstRow As Long
        LstRow = Cells(1, Rows.Count).End(xlUp).Row
        Range(Cells(2, "C"), Cells(2, LstRow)).Value = "=INDEX(RC1,MATCH(RC1,R2C,0))"

第一个Dim按预期工作。 该公式已成功部署到第二行到最后一列（或者可能从最后一列开始向左移动）。 但是，第二个Dim会因错误而停止。 我不确定如何将数据从最后一行（到最后一列）向上扩展到第二行（以及相应的最后一列）。

在我的示例中，前两列的标题数据为1到5330（A1：B5330）。 我在第一行（C1：AX1）中也有标头数据。 我的目标是从C2：AX5330动态填充公式= INDEX（$ A2，MATCH（D $ 1，$ B2,0））。

我要去哪里错了？

Answer 1

您需要使用工作表来适当限定Range和Cells实例。 您可以直接执行此操作，将工作表变量变暗，或使用With块，如下所示：

Dim LRow as Long

With ThisworkBook.Sheets("????")
    LRow = .Range("A" & .Rows.Count).End(xlUp).Row 
    .Range("C2:AX5330").Formula = "=INDEX($A2,MATCH(D$1,$B2,0))" 'Make sure your cell references are correct here
    .Range("C2:AX5330").Value = .Range("C2:AX55330").Value 'Place as values instead of formula
End With