我是VBA的新手,非常感谢有关如何执行以下VBA工作表更改事件的任何指导。
我想要执行的是以下内容: 如果我更改特定列中的单元格值,我想将该行中的不同单元格值提取到另一个工作表中。
因此,每次更新单元格值或将其添加到工作表时,我都会自动提取数据并将其传输到不同工作表中表格的第一个空行。
请指教!任何见解将不胜感激。提前致谢
更新:现在想出来。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lastrow2 As Long
Dim c As Range
Lastrow2 = Worksheets("Action Sheet").UsedRange.Rows.Count
Application.EnableEvents = False
For Each c In Target
If c.Column = 16 Then
Worksheets("Action Sheet").Cells(Lastrow2 + 1, 1).Value = Target.Value
End If
Next c
Application.EnableEvents = True
End Sub