Excel VBA以选择使用Find()找到的单元格地址

Question

我正在编写excel预测工作簿--我有一个包含所有产品数据的大容量数据表，以及一个用户从下拉列表中选择特定产品的明细表。对于每个产品，我希望用户检查明细表上的数据，并在需要时输入手动预测。然后，我希望用户触发一个宏，该宏将复制并粘贴此手动预测到大容量数据表上的相关单元格中。复制/粘贴位很好，但我很难选择要粘贴到的相关单元格-我有下面的代码来定位正确的单元格，但不是显示带有单元格地址的MsgBox，而是要excel选择该单元格地址。

Sub Findrow()   
   Dim Fnd As Range   
   Set Fnd = Sheets("FORECAST_MODEL").Range("B:B").Find(Sheets("DETAIL_SHEET").Range("B2").Value, , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then
      Set Fnd = Fnd.Offset(-1, 25)
      MsgBox Fnd.Address
   End If
End Sub

任何感激之情

谢谢

Answer 1

Fnd.Select而不是MsgBox Fnd.Address

甚至是这里的全部代码：

If Not fnd Is Nothing Then
   Set fnd = fnd.Offset(-1, 25)
   MsgBox fnd.Address
End If

可以用1行替换：

If Not fnt Is Nothing Then fnd.Offset(-1, 25).Select