我想将B2:D2数据从我的表格MW复制到TimeStampWork取决于表格MW B2值的变化。在工作表TimeStampWork上,我需要在代码每次运行时在Row + 1上添加它们。
我正在使用下面的代码。但问题是它只复制B2细胞数据,而不是B2:D2。 请让我知道如何复制范围。
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set mw = Workbooks("StockScreen.xlsm").Sheets("MW")
Set ws = Workbooks("StockScreen.xlsm").Sheets("TimeStampWork")
If Value <> mw.Range("B2").Value Then
ws.Range("B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1).Value = mw.Range("B2:D2").Value
End If
End Sub