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

Excel VBA选择Find（）找到的单元格地址

1 个答案: