有没有人会啊！

felix301

同工作簿的多个工作表中找特定字符，返回字符串所在工作表的名字
我打开一个工作簿，里面的活动工作表是随机的！查找一个特定字符   在AD111这个表中  
主要是取得AD111这个工作表的名字
Book1.zip (4.15 KB, 下载次数: 12)

2015-1-20 11:20 上传

点击文件名下载附件

用代码怎么写

zhang57178

Sub test()

Dim xlsSheet As Worksheet, xlsRange As Range
For Each xlsSheet In Worksheets
Set xlsRange = xlsSheet.Cells.Find(what:="字符") '任意字符，在这里进行设置
If Not xlsRange Is Nothing Then
Debug.Print xlsSheet.Name '这里得到的就是工作表名
End If
Next

End Sub

力渣渣

楼上正解，但是是模糊搜索，也就是不是完全匹配，包含字符也会显示在立即窗口

felix301

zhang57178 发表于 2015-1-25 21:43
Sub test()

Dim xlsSheet As Worksheet, xlsRange As Range

谢谢！回复！