需要VBA宏帮助

Question

我目前正在研究一个涉及选项链的项目，我需要每五分钟和同一列中的同一本书中的单个单元格将值从单个单元格复制到另一个单元格。但是，由于我对VBA的不熟悉，这是我可以做的最好的宏，而且效率很低：

Sub Macro1()
    Sheets("Sheet1").Select
    Range("A1").Copy
    Sheets("Sheet2").Select
    ActiveSheet.PasteSpecial Paste:=xlPasteValues
    ActiveCell.Offset(1, 0).Select
    Sheets("Sheet1").Select
End Sub

注意：A1是占位符，目前我正在处理信息粘贴，而不是5分钟的计时器。

我如何改善宏？

Answer 1

尝试-

Sub Macro1()
Dim ws As Worksheet
Dim lrow As Long

    Set ws = Worksheets("Sheet2")
    lrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    ws.Range("A" & lrow) = Sheets("Sheet1").Range("A1").Value2
    
    Set ws = Nothing
End Sub