如何选择列中的最后一个单元格并将其插入最后一个打开单元格中的另一个工作表中

Question

刚开始用VB编写excel代码。我遇到的问题是：

我想在一张纸上复制一列中的最后一个单元格，然后将其粘贴到下一张纸上一列中的下一个打开单元格中。如果可能，我可以自动执行此操作，而不必每次都调用该功能或​​单击按钮吗？

这是我到目前为止所做的：

Sub UpdatePromoCalendar()
Dim LR As Long
Dim TR As Long
LR = WorksheetFunction.Max(20, Range("A" & Rows.Count).End(xlUp).Row + 1)
TR = WorksheetFunction.Max(20, Range("O" & Rows.Count).End(x1Up).Row - 1)
Sheets("Sheet1").Range("O" & TR).CopySpecial xlCopyValues
Sheets("Sheet2").Range("A" & LR).PasteSpecial xlPasteValues
End Sub

现在使用上面的粘贴选项和LR一起工作。但是我不能让它复制列中最后填充的单元格。

很抱歉，如果这是一个简单的修复，我不熟悉在excel中使用excel宏和VB。

提前感谢您的帮助！

Answer 1

我没有使用宏，而是决定重做我的电子表格，并使用带有切片器的数据透视表。我为每个项目创建了单独的工作表，并添加了一个名为price master的新列。这样我就可以使用切片器过滤结果，显示更清晰，更易于使用的模板。

这个宏很麻烦，基本上取代了限幅器，从长远来看这是浪费时间。