求用VBA查找指定工作簿中工作表的指定内容并将不符合条件的工作表删除

cokoed4 · 发表于 2013-3-22 17:27

本帖最后由 cokoed4 于 2013-3-22 19:32 编辑

请教各位老师，如何用VBA查找指定工作簿中许多工作表的内容，并将其中满足条件的工作表显示出来，不符合条件的工作表自动删除

例如想查找A这个英文单词，在这个工作簿里面5个工作表里面找，发现符合的就把符合的工作表保留下来，不符合的就把不符合工作表删除，请问用VBA代码如何编写，谢谢

查找工作表.rar (1.82 KB, 下载次数: 57)

清风竹- · 发表于 2013-3-22 18:33

含有A，是保留的，还是删除的？没看懂。缩小一下可能含A的范围。如果把所有单元格查一遍256X65536个，相当耗时。

cokoed4 · 发表于 2013-3-22 19:25

是要把A保留，就是查找工作表，如果发现工作表有A这个字符，这个工作表就保留，不然就删除

cokoed4 · 发表于 2013-3-22 19:27

本帖最后由 cokoed4 于 2013-3-22 19:28 编辑

如果指定A出现在E列，请问该如何编写呢，就是在工作表E列发现如果有A就保留该工作表，没发现就删除该工作表

清风竹- · 发表于 2013-3-22 20:07

本帖最后由清风竹- 于 2013-3-22 20:08 编辑

Sub 查找工作表()
Dim i&, m&
Dim a, Sht As Worksheet
Application.DisplayAlerts = False
For Each Sht In Sheets
' If Sht.Name <> "Sheet1" Then
m = Sht.[e65536].End(xlUp).Row
b = 0
For i = 1 To m
If Sht.Cells(i, "e") = "a" Then
b = 1
Exit For
End If
Next
If b = 0 Then
Sht.Delete
End If
' End If
Next
Application.DisplayAlerts = True
End Sub

复制代码

cokoed4 · 发表于 2013-3-22 21:02

谢谢老师，受教了{:soso_e102:}

cokoed4 · 发表于 2013-3-22 21:03

请问I& 和M& 后面的&是代表什么意思呢

清风竹- · 发表于 2013-3-22 21:26

cokoed4 发表于 2013-3-22 21:03
请问I& 和M& 后面的&是代表什么意思呢

dim i&　　相当于　dim i as i Long，把i定义为长整型。

		自动登录	找回密码
密码			免费注册