使用 VBA 简化复杂的 Excel 公式

Question

由于过度使用 LOOKUP 公式，我有一个通常很慢的宏。我想插入一些 VBA 变量来加快这些速度。我目前正在加快以下公式的速度：在 Excel 中：

=IF(ISNA(MATCH(A2,Summary!B:B,0)),"n",I2-((I2/LOOKUP(2,1/(I:I<>""),I:I))*VLOOKUP(A2,Summary!$G$10:$H$902,2,FALSE)))

在 VBA 中：

"=IF(ISNA(MATCH(RC[-9],Summary!C[-8],0)),""n"",RC[-1]-((RC[-1]/LOOKUP(2,1/(C[-1]<>""""),C[-1]))*VLOOKUP(RC[-9],Summary!R10C7:R902C8,2,FALSE)))"

我需要替换的部分是LOOKUP(2,1/(C[-1]<>""""),C[-1])。所有这一切都是引用第一列中最后一个非空单元格。现在我有以下代码来返回 VBA 中最后一个单元格的地址

Sub FormulaTest()
Set lRow = Range("I1").SpecialCells(xlCellTypeLastCell).Address

End Sub

我试图弄清楚如何将这个“lRow”实现到公式的 VBA 代码中。谁能引导我朝着正确的方向前进？

**编辑 1 请参阅下面费尔南多的评论。他有正确的想法，但解决方案仍然有点偏离。我会尝试在几个 cmets 中更好地解释它：首先，第一行始终是标题行，最后一行始终是总和行，当前选项卡是“销售”选项卡，以及任何给定的行数销售标签会有所不同（可能是 I1:I59，也可能是 I:1:I323）。

在本例中，I1 是行标题，I59 是 I2:I58 的总和。 I2:I58 行是美元金额。我的宏将这个公式放在 J2:J58 中。此公式将每行的美元金额 (I2:I58) 作为总额 (I59) 的百分比，并将其乘以“摘要”选项卡 (VLOOKUP) 上的输入金额。然后从 I 列中的美元值中按比例减去该金额，其中 J 单元格显示结果。

我希望在上面的公式中消除对 LOOKUP 函数（选择最后一个非空单元格）的需要： LOOKUP(2,1/(C[-1]""""),C[-1 ]）。

**编辑 2 费尔南多的解决方案奏效了。谢谢大家的意见

Answer 1

这将返回 I 列中的最后一个非空行

with Worksheets("Summary")
lRow = .Cells(.Rows.Count, "I").End(xlUp).Row
end with

所以你的代码是

sub testy
dim lRow as long
with Worksheets("Summary")
lRow = .Cells(.Rows.Count, "I").End(xlUp).Row
end with

"=IF(ISNA(MATCH(RC[-9],Summary!C[-8],0)),""n"",RC[-1]-_
((RC[-1]/R"&lRow&"C[-1])*VLOOKUP(RC[-9],Summary!R10C7:R902C8,2,FALSE)))"

在您的解决方案中，您使用的是xlCellTypeLastCell。这非常有用，但它基于UsedRange 计算，这可能不是您想要的。有了这个，如果你有数据到行n，然后你更新数据，现在你有更少的记录，最后一行xlCellTypeLastCell仍然是n，所以要小心。

Answer 2

假设您正在活动工作表上完成所有工作，查找“摘要”工作表：

Sub fillCol()

    Dim aRow As Long, bRow As Long

    aRow = Cells(Rows.Count, "I").End(xlUp).Row
    bRow = Sheets("Summary").Cells(Rows.Count, "I").End(xlUp).Row

    Range("J2:J" & aRow).FormulaR1C1 = "=IF(ISNA(MATCH(RC[-9],Summary!C[-8],0)),""n"",RC[-1]-" _
                       & "((RC[-1]/" & aRow & ")*VLOOKUP(RC[-9],Summary!R10C7:R" & bRow & "C8,2,FALSE)))"

End Sub

您需要更改包含连续范围的列（以确定最后一行）