如何获取已删除行的数据？

Question

我很好奇是否有可能从Excel VBA宏中当前删除的行中获取数据？我发现Worksheet_Change中的Target是新的活动行，该行在删除的行之后成为焦点。我有什么办法可以访问刚刚删除的行以从中获取一些信息？

谢谢！

Answer 1

您可以使用以下内容：

Option Explicit
'Declare as global variable
Dim str As String

Private Sub Worksheet_Change(ByVal Target As Range)
    'When deleted you get the value of the global variable
    MsgBox str
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Get the value of the cell when selected & before deleted
    str = Range("A1").Value
End Sub

您创建一个全局变量，当SELECTED＆BEFORE删除任何内容时，该变量将存储单元格的值。删除后，您将收到一个带有变量的消息框，该变量保存选择单元格时存储的值。