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

将其粘贴到ThisWorkbook中。无论您在Sheet1上更改Cell 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

Answer 2

我认为这就是你要找的东西：

Sub recorder()

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

End Sub

VBA（宏）复制和粘贴

2 个答案: