vba 太难了，这段代码求高手帮我看看错在哪里

黄牛解毒丸

Sub shiyan()
Dim rng As Range
ActiveWorkbook.Worksheets("Sheet2").Range
rng = .Find("气缸套", LookIn:=xlValues, lookat:=xlWhole)
Set ActiveWorkbook.Worksheets("sheet1").Range(a2) = rng(0, 1)
End Sub

好奇心

Sub shiyan()
Dim rng As Range
ActiveWorkbook.Worksheets("Sheet2").Range
set  rng = .Find("气缸套", LookIn:=xlValues, lookat:=xlWhole)
Set ActiveWorkbook.Worksheets("sheet1").Range(a2) = rng(0, 1)
End Sub

黄牛解毒丸

好奇心 发表于 2013-1-30 16:45
Sub shiyan()
Dim rng As Range
ActiveWorkbook.Worksheets("Sheet2").Range

大哥，好像不行啊，运行后定位在（.Find）上显示编译错误，无效或不合格引用，

好奇心

黄牛解毒丸 发表于 2013-1-30 16:55
大哥，好像不行啊，运行后定位在（.Find）上显示编译错误，无效或不合格引用，

Sub shiyan()
Dim rng As Range
ActiveWorkbook.Worksheets("Sheet2")
set  rng = cells.Find("气缸套", LookIn:=xlValues, lookat:=xlWhole)
Set ActiveWorkbook.Worksheets("sheet1").Range(a2) = rng(0, 1)
End Sub

香川群子

楼主试一下，你是要这样的效果么？
一句代码就解决了。

1. Sub shiyan()
   
2.     Sheet1.Range("a2") = Sheet2.Cells.Find("气缸套")
   
3. End Sub
   

复制代码

香川群子

你的那些Dim 、Set、 ActiveWorkbook.都是多余的。没有意义反而影响代码效率。

黄牛解毒丸

好奇心 发表于 2013-1-30 17:00
Sub shiyan()
Dim rng As Range
ActiveWorkbook.Worksheets("Sheet2")

好事不行，说属性定义错误。

黄牛解毒丸

香川群子 发表于 2013-1-30 17:04
楼主试一下，你是要这样的效果么？
一句代码就解决了。

行了，我想把他循环起来，而且是查找缸套后面的值

黄牛解毒丸

香川群子 发表于 2013-1-30 17:07
你的那些Dim 、Set、 ActiveWorkbook.都是多余的。没有意义反而影响代码效率。

高手出马一个顶俩啊