从最后编辑的行中的行A中的相应单元格中提取数据，并插入到单元格A1中

Question

我正在寻找一个脚本，它将数据从上次编辑的单元格提取到活动工作表的单元格B1中，并从列A中的单元格中查找数据，然后将其显示在单元格{{1 }}

到目前为止，我已经将最后编辑的单元格拉到A1并且它工作正常但我无法弄清楚如何从那一点返回到行B1并显示其他信息

A

在附图中，如果我在称为托盘已完成（红色）的部分中添加任何数字以显示在Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("F13:W9910")) Is Nothing Then ActiveSheet.Range("B1").Value = Target.Value End If End Sub 中，然后在Sap列中查找数字并在单元格B1中显示数字

Answer 1

这样的事情：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("F13:W9910")) Is Nothing Then
        Me.Range("B1").Value = Target.Value
        Me.Range("A1").Value = Target.Entirerow.Cells(1).Value
    End If   
End Sub

注意在工作表代码模块中，您可以使用Me参考工作表 另请注意，Target可能是> 1个单元格，您的代码可能需要处理它。

Answer 2

这将取A中的相应值并将其放在A1中。我只为你的代码添加了一行代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("F13:W9910")) Is Nothing 
Then
    ActiveSheet.Range("B1").Value = Target.Value
    ActiveSheet.Range("A1").Value = ActiveSheet.Range("A" & Target.Row)  
End If
End Sub