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

您需要使用工作表对Toolbar和BottomAppBar的实例进行适当的限定。您可以直接执行此操作，将工作表变量变暗，或使用BottomNavigationDrawerFragment块，如下所示：

Range

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

1 个答案: