Find（）函数查找公式不输出

Private Sub ListBox1_Click() asset = Me.ListBox1.Value ThisWorkbook.Sheets("AssetPurchase").Activate sl = Range("I7", "I500").Find(asset).Row Me.TextBox2.Value = Range("H" & Range("I7", "I500").Find(asset).Row).Value MsgBox (Range("I7", "I500").Find(asset).Row) End Sub 

我正在使用上面的子切换工作表，然后searchstring的范围

我遇到的问题是这个范围内的单元格是从其他单元格的内容计算出来的，find（）是在范围内search公式而不是公式的输出

我想在一个范围内的公式的输出匹配一个string

Answer 1

Find()具有以下参数：

 Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) 

使用第三个参数LookIn来指定是否要在公式中search文本（ xlFormulas ）或单元格值 （ xlValues ）。

例如，要search与存储在asset中的文本相匹配的第一个单元格值，请使用：

 sl = Range("I7", "I500").Find(asset, , xlValues).Row