当工作表MW
中的单元格A1值发生更改时,我需要将工作表MW A1:M1
单元格值复制到工作表TimeStampWork
。
我正在使用下面的代码,但每当我运行代码时,在If Value <> MW.Range("A1").Value Then
Private Sub Worksheet_Calculate()
Dim ws As Worksheet
Set ws = Workbooks("Main.xlsm").Sheets("TimeStampWork")
If Value <> MW.Range("A1").Value Then
Range("A1:M1").Copy
ws.Range("A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues
End If
End Sub
请让我知道造成这种情况的原因