跳转到定位单元格区域和后台代码位置的代码

lrlxxqxa

sheet1中

1. 
   
2. 
   
3. Sub aa()
   
4. Range("a1") = 3
   
5. End Sub

复制代码

模块中

1. Sub wu()
   
2. [c5] = 5
   
3. End Sub
   
4. 
   
5. Sub lastarea()
   
6. Application.Goto
   
7. End Sub
   
8. 
   
9. Sub gg()
   
10. Application.Goto Range("d3:d15")
    
11. End Sub
    
12. 
    
13. Sub gowu()
    
14. Application.Goto "wu"
    
15. End Sub
    
16. 
    
17. Sub goaa()
    
18. Application.Goto "sheet1.aa"
    
19. End Sub

复制代码

Application.Goto "wu"可以定位到模块中的名为“wu“的宏处；
Application.Goto "sheet1.aa"可以定位到sheet1中名为”aa“的宏处。