时间戳

首页 > 解决方案 > 记录excel表1到表2上某个范围的所有变化值

excel - 记录excel表1到表2上某个范围的所有变化值

问题描述

下面的代码将单元格 A1 的变化值记录到工作表 2 上。我需要类似这样的代码，将所有变化的值记录到工作表 1 的范围“A1：E1”的工作表 2 上

Private Sub Worksheet_Calculate()

With Worksheets("Sheet2")

 .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row + 1, "A").Value = Worksheets("Sheet1").Range("A1").Value
End With
End Sub

标签： excelvba

解决方案

我将copy在您的情况下使用方法，将所有值复制sheet1到下一行中sheet2，请尝试查看：

Private Sub Worksheet_Calculate()

Dim lastrow As Long

lastrow = Worksheets("Sheet2").Range("A1").End(xlDown).Row + 1

Worksheets("Sheet1").Range("A1:E1").Copy Worksheets("Sheet2").Cells(lastrow, 1)

End Sub

推荐阅读