Excel VBA：根据search设置单元格值

我试图设置ActiveCell的值如下：

• 我需要查看活动单元格上方一行的单元格的值（在同一列中）
• 然后，我需要在“源 – 问题”表的第三列中find这个值; 我需要从底部开始search，因为我需要find这个值的最后一个实例
• 当我find这个单元格时，我需要把刚刚find的单元格下的单元格的值（在同一列中）

这是我的代码，我得到一个没有任何有用的信息的exception。

ActiveCell.Value = Cells.Find(What:=ActiveCell.Offset(-1, 0).Value, After:=Sheets("Source - Questions").Cell(1000, 3), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Offset(1, 0).Value 

任何帮助，将不胜感激。

干杯

Answer 1

纠正两个小错误：

 Sub asdf() Dim r As Range, s As Worksheet, v As Variant Set s = Sheets("Source - Questions") v = ActiveCell.Offset(-1, 0).Value Set r = s.Cells.Find(What:=v, _ After:=s.Cells(1000, 3), _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False, _ SearchFormat:=False).Offset(1, 0) ActiveCell.Value = r.Value End Sub