R1C1中不同工作表的VBA最后一行和列
R1C1中不同工作表的VBA最后一行和列
提问于 2020-10-26 08:25:49
在问题的末尾找到我的代码。我正试图使日常过程自动化。每天，一个新行被添加到ITR文件中，我需要在另一个工作表中输入该列的新值。是否有一种方法可以创建一个宏来选择第9列的最后一行？我试着使用R1C1格式并使用Rlast_rowC9，但我不知道这是否有效。有什么帮助吗？谢谢。
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回答 1
Stack Overflow用户
回答已采纳
发布于 2020-10-26 08:41:37
如果目标是在特定列中找到最后一行，则可以使用如下所示的正常公式(不需要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"页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/64533631
复制相关文章
相似问题
腾讯云开发者
