[已解决]如何快速的定位到符合条件的Sheet？

vividboy

大家好！

我现在有一个Excel文件，里面包含了80个Sheet，我每次要查找一个Sheet即便是从左下角的列表中选择也感觉很麻烦，眼睛都看花。。。。。

不知道有没有方法，可以快速定位到符合条件的Sheet， 比如我知道我需要查找的Sheet名称中包含关键词“产品年销量”等。

我使用的是：Excel2010

谢谢！

最佳答案

月排行榜 / 总排行榜

baksy

2014-9-30 08:04

利用超级链接功能。

跳转到最佳答案楼层

baksy

利用超级链接功能。

风林火山

1. Sub test()
   
2.     Dim sh As Worksheet, rng As Range
   
3.     For Each sh In Worksheets
   
4.         For Each rng In sh.UsedRange
   
5.             If rng.Value = "中国" Then GoTo 100 '中国就是要查找的关键字
   
6.         Next rng
   
7.     Next sh
   
8. 100:
   
9.     sh.Select
   
10. End Sub
    

复制代码

这儿有肥猫

1. Sub a()
   
2.       Sheets(1).Activate
   
3. End Sub

复制代码

想跳到哪一页就改一下 sheets里面的数字，如果是表名的话，sheets("表名").activate

dpdmlym

Sub test()
    Dim sh As Worksheet, na As String, w As String
    w = InputBox("输入工作表关键字：", "关键字")
    For Each sh In Worksheets
            na = sh.Name
            n = InStr(na, w)
            If n <> 0 Then GoTo 100
    Next sh
100:
    Sheets(na).Select
End Sub

xdragon

Ctrl+F查找，选项中的“范围”改成工作簿，然后输入查找内容，点查找全部，在查找的列表中就有所有满足查找条件的表格了。

vividboy

baksy 发表于 2014-9-30 08:04
利用超级链接功能。

谢谢你！

你的意思是用VBA批量生成超级链接，然后用Ctrl+F查找的方式跳转吗？

vividboy

xdragon 发表于 2014-9-30 09:03
Ctrl+F查找，选项中的“范围”改成工作簿，然后输入查找内容，点查找全部，在查找的列表中就有所有满足查找 ...

谢谢你，按你说的做了，但是好像只能查找单元格的内容，不能查找Sheet的名字中包含某个关键字的情况。

如果是我哪里没做，还请明示。再次感谢！

xdragon

具体能写个示例吗？否则不清楚你的需求哈