[已解决]请教

ww918ww918

Sub 查找设备分类列号()
Sheets("机器设备").Select
For x = 3 To 6
   For y = 22 To 66
       If Cells(x, y).Value = "设备类型" Then
       Exit For
      Exit For
      End If
     Next y
Next x

Cells(x, y).Value = "我在这里"
End Sub

===========
按我的理解，最后的结果应该出现在（x，y）的位置，可是运行下来，却是（x+1，y）的位置。
比如我的“设备类型”格在（6,36），可是最后的结果却出现在（7,36），差的那个1是怎么回事啊？

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-26 15:33

1. Option Explicit
   
2. 
   
3. Sub Macro2()
   
4. '
   
5. Dim x, y
   
6. Sheets(1).Select
   
7. For x = 1 To 66
   
8.    For y = 2 To 66
   
9.        If Cells(x, y).Value = "设备类型" Then
   
10.             GoTo 100
    
11.       End If
    
12.    Next y
    
13. Next x
    
14. 100
    
15. Cells(x, y).Value = "我在这里"
    
16. 
    
17. End Sub

复制代码

这样试试。
因为你EXITfor后，第二个EXIT FOR就没有作用了。

跳转到最佳答案楼层

yuhai0012

请上传附件

free1024

恩，最好上传一下附件，才好解答。。。

djsd1016

我是进来学习的，楼主放个附件上来。。。

ww918ww918

因为原文件太大，换成小的了。但是，我发现，我最后赋值也没有效果？这是怎么回事啊？

我的主要目的是找到这个“设备类型”的位置，也就是xy的值。
我的2个exit for用的对吗？

liuguansky

1. Option Explicit
   
2. 
   
3. Sub Macro2()
   
4. '
   
5. Dim x, y
   
6. Sheets(1).Select
   
7. For x = 1 To 66
   
8.    For y = 2 To 66
   
9.        If Cells(x, y).Value = "设备类型" Then
   
10.             GoTo 100
    
11.       End If
    
12.    Next y
    
13. Next x
    
14. 100
    
15. Cells(x, y).Value = "我在这里"
    
16. 
    
17. End Sub

复制代码

这样试试。
因为你EXITfor后，第二个EXIT FOR就没有作用了。

ww918ww918

哦，太感谢了。
这里的“服务”简直太好了。
尤其是对我们这些新手来说，那感觉真是完美。