vba - VBA（宏）复制和粘贴

Question

我正在尝试创建一个宏，允许我每次激活它时复制工作表 1 中的单元格的值（相同的单元格，但在我的计算后可能会有不同的结果）并将这些结果的值粘贴到工作表中2（可能在 A1;A2;A3;....... 每次我进行计算时）这是我编写的代码示例，但它不起作用：

Sub recorder()

If Cells(B, i) <> Empty Then
i = i + 1
Worksheets(1).Select
Cells(A1).Copy
Worksheets(2).Select
Cells(B, i) = Cells(A1)
End If
End Sub

任何帮助，将不胜感激。谢谢

Answer 1

我想这就是你要找的：

Sub recorder()

    Sheets(2).Cells(Rows.Count, "B").End(xlUp).Offset(1).Value = Sheets(1).Range("A1").Value

End Sub

Answer 2

将此粘贴到 ThisWorkbook 中。无论您更改 Sheet1 上单元格 A1 中的值，它都会出现在 Sheet2 中 A 列中最近的空白单元格中。请注意，您不需要运行宏，它会自动发生。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh.Index = 1 Then Exit Sub
If Not Target.Address = "$A$1" Then Exit Sub
If Worksheets(2).Range("A65536").End(xlUp).Value = Empty Then
Worksheets(2).Range("A65536").End(xlUp).Value = Target.Value
Else
Worksheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = Target.Value
End If    
End Sub