将特定列数据从一个工作表复制到另一个工作表取决于单元格数据的更改

时间:2017-09-03 11:41:41

标签: excel vba excel-vba excel-2010

我想将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

0 个答案:

没有答案