[已解决]find函数“运行时错误：'91':对象变量或 With 块变量未设置”

tongxon

如图1，需要根据文件2各工作表的c6单元格的内容，在文件1的aa列查找对应的行数（图2），再在该行的o列（“薄片鉴定”列）录入文件2同一工作表的F7单元格的岩石名称。例如，本例中需要根据文件2的“薄片鉴定”工作表C6 单元格的“CK170+860.30右0.01m”，在文件1的AA列查找到它在第37行，并在文件1的o列37行填写文件2的F7单元格内容“强硅化二云斜长变粒岩”。我编写的代码如下：
Sub 自动录入薄片鉴定结果()
Dim f, wb, wh, x, m1
f = Application.GetOpenFilename("Excel2003,*.xls,Excel2010,*.xlsx", 1)
Set wb = Workbooks.Open(f)
Set wh = ThisWorkbook.Sheets(1)
wh.Activate
wc = wb.Sheets.Count
    For x = 1 To wc
    With wb.Sheets(x)
        m1 = wh.Range("aa:aa").Find(.Range("c6"), LookAt:=xlWhole).Row
        wh.Range("o" & m1) = .[f7]
    End With
    Next x
End Sub
运行后报错如图3。请高手指点一二~~

最佳答案

月排行榜 / 总排行榜

810126769

2014-1-16 09:42

tongxon 发表于 2014-1-15 21:32
可是“CK170+860.30右0.01m”确实有试验结果啊，如果按照你的代码，程序找不到CK170+860.30右0.01m后机会 ...

原来没有注意到，以为真的没有

CK170+860.30右0.01m

这个数据，看了你的问题，再仔细查看了一下，真的有这个数据，只是它们是不完全不相同的，EXCEL就认为它们不同。

你再仔细看看，2.xls的表1中的  
CK170+860.30右0.01m     的“右”字前没有空格，而1.xls中AA列的这个数据
CK170+860.30  右0.01m在下面，它的“右”字前有一个空格。这对于EXCEL来说，它们就不是同一个数据。所以还是查找不到。

CK170+860.30  右0.01m

你的数据太不规范了，有的中间有空格，有的没有空格。不太好处理。

跳转到最佳答案楼层

810126769

当find查找不到要查找的内容时，它就不能返回单元格对象，这个时候就不能用  .row  属性来返回行号，所以出现错误。可以作以下修改：

加一个判断语句，如果查找到，就取得这个单元格的行号，如果查找不到，就查找下一个工作表中的C6单元格中的内容。

代码如下：

1. Sub 自动录入薄片鉴定结果()
   
2. Dim f, wb, wh, x, m1, r&
   
3. f = Application.GetOpenFilename("Excel2003,*.xls,Excel2010,*.xlsx", 1)
   
4. Set wb = Workbooks.Open(f)
   
5. Set wh = ThisWorkbook.Sheets(1)
   
6. wh.Activate
   
7. wc = wb.Sheets.Count
   
8.     For x = 1 To wc
   
9.     With wb.Sheets(x)
   
10.    
    
11.       Set m1 = wh.Range("aa:aa").Find(.Range("c6"), LookAt:=xlWhole)
    
12.        If Not m1 Is Nothing Then
    
13.           r = m1.Row
    
14.         wh.Range("o" & r) = .[f7]
    
15.        End If
    
16.     End With
    
17.     Next x
    
18. End Sub
    

复制代码

tongxon

810126769 发表于 2014-1-15 20:52
当find查找不到要查找的内容时，它就不能返回单元格对象，这个时候就不能用  .row  属性来返回行号，所以出 ...

可是“CK170+860.30右0.01m”确实有试验结果啊，如果按照你的代码，程序找不到CK170+860.30右0.01m后机会跳过去，那在总表里岂不是漏掉了这个数据？

tongxon

810126769 发表于 2014-1-15 20:52
当find查找不到要查找的内容时，它就不能返回单元格对象，这个时候就不能用  .row  属性来返回行号，所以出 ...

我想知道，明明总表里有这个，程序为什么匹配不到呢？

leixiao123

tongxon 发表于 2014-1-15 21:38
我想知道，明明总表里有这个，程序为什么匹配不到呢？

不是找不到结果，而是有点小问题：
例如~~~~~find(.range("c6"))
这个点前面要有with语句的
或者不用with，这句改成~~~~~find(wh.range("c6"))
试试？

tongxon

leixiao123 发表于 2014-1-15 21:59
不是找不到结果，而是有点小问题：
例如~~~~~find(.range("c6"))
这个点前面要有with语句的

前面有With wb.Sheets(x)语句啊，应该不是这个问题。

810126769

tongxon 发表于 2014-1-15 21:32
可是“CK170+860.30右0.01m”确实有试验结果啊，如果按照你的代码，程序找不到CK170+860.30右0.01m后机会 ...

原来没有注意到，以为真的没有

CK170+860.30右0.01m

这个数据，看了你的问题，再仔细查看了一下，真的有这个数据，只是它们是不完全不相同的，EXCEL就认为它们不同。

你再仔细看看，2.xls的表1中的  
CK170+860.30右0.01m     的“右”字前没有空格，而1.xls中AA列的这个数据
CK170+860.30  右0.01m在下面，它的“右”字前有一个空格。这对于EXCEL来说，它们就不是同一个数据。所以还是查找不到。

CK170+860.30  右0.01m

你的数据太不规范了，有的中间有空格，有的没有空格。不太好处理。