excel vba：查找具有特定值的单元格行，并将该行号放在另一个单元格中

我试图找到具有特定值（与

范围（“C1”）值相同的值）的单元格行，并将该行号放入另一个单元格中。我坚持了两个小时

我的代码如下：
（我之前激活了表1）

此代码收到错误消息
未设置对象变量

此错误的来源是什么？
B'因为找到的变量为空，因为Find（）未找到任何匹配值，也未在找到的变量中设置任何内容

Dim found As Range

Set found = Sheet1.Columns("B").Find(what:=Sheet1.Range("C1").Value, LookIn:=xlValues, lookat:=xlWhole)

If Not found Is Nothing Then
    Sheet1.Range("A2").Value = found.Address
End If

因为Find（）没有找到任何匹配的值，也没有在Find变量中设置任何内容，所以找到的变量是空的

Dim found As Range

Set found = Sheet1.Columns("B").Find(what:=Sheet1.Range("C1").Value, LookIn:=xlValues, lookat:=xlWhole)

If Not found Is Nothing Then
    Sheet1.Range("A2").Value = found.Address
End If

如果没有看到工作表或代码的其余部分，我猜没有找到搜索值。@Comintern19感谢您的回复。问题是，我的眼睛看到B24的值与搜索值（sheet1.range（“C1”）.value）相同，但vba代码没有给我行号，在这种情况下，行号是24。。。。。。。。。。。。。。。。。。我是否误解了您所说的“搜索值”？请帮忙！非常感谢你！如果没有看到工作表或代码的其余部分，我猜没有找到搜索值。@Comintern19感谢您的回复。问题是，我的眼睛看到B24的值与搜索值（sheet1.range（“C1”）.value）相同，但vba代码没有给我行号，在这种情况下，行号是24。。。。。。。。。。。。。。。。。。我是否误解了您所说的“搜索值”？请帮忙！非常感谢你！