VBA R1C1 中不同 sheet 的最后一行和最后一列

Question

在问题的最后找到我的代码。我正在尝试使日常流程自动化。每天，ITR 文件都会添加一个新行，我需要在另一个 sheet 中输入该列的新值。有没有一种方法可以创建一个可以 select 第 9 列最后一行的宏？我尝试使用 R1C1 格式并使用 R[last_row]C9 但我不知道这是否可行。有什么帮助吗？谢谢

Sub Macro4()
'
' Macro4 Macro
'
'
    dim last_row As Long
    last_row = Cells.Find(What:="*", SearchDirection:=[ITR 21.10.2020.xlsx]).Row

    Range("E17").Select
    Selection.FormulaR1C1 = "='[ITR 21.10.2020.xlsx]Transactions'!R[last_row]C9"
End Sub

Answer 1

如果目的是查找特定列中的最后一行，那么您可以使用如下所示的普通公式（不需要 VBA）。

=LOOKUP(2,1/('[ITR 21.10.2020.xlsx]Transactions'!I:I<>""),'[ITR 21.10.2020.xlsx]Transactions'!I:I)

您的代码需要进行一些调整才能正常工作。

Dim last_row As Long
last_row = Workbooks("ITR 21.10.2020.xlsx").Sheets("Transactions").Cells.Find(What:="*", SearchDirection:=xlPrevious).Row
Range("E17").FormulaR1C1 = "='[ITR 21.10.2020.xlsx]Transactions'!R[" & last_row & "]C9"

编辑：

在这种情况下，需要代码来处理：

Dim last_row As Long
Dim strWbkName As String
strWbkName = "ITR " & Format(Date,"dd.mm.yyyy") & ".xlsx"
last_row = Workbooks(strWbkName).Sheets("Transactions").Cells.Find(What:="*", SearchDirection:=xlPrevious).Row
Range("E17").FormulaR1C1 = "='[" & strWbkName & "]Transactions'!R[" & last_row & "]C9"

VBA R1C1 中不同 sheet 的最后一行和最后一列

VBA Last Row and Column from different sheet in R1C1

excel

vba

excel-r1c1-notation