如果单元格值发生更改,请提取该值并输入另一个工作表

时间:2016-01-29 22:40:42

标签: vba excel-vba target worksheet excel

我是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

0 个答案:

没有答案