求助关于excel

xiaochong

我有一个excel工作簿，含有1，2，3，4...n个active 工作表，我想删除所有工作表中A列，含特定字符的行（比如说含字符t），有没有相关的vba代码可使用，我只找到了一段vba代码，如下

--------------------------------------------------------
Sub 删除指定列中含有指定字符的行()
AA = "A"
BB = "t"
If AA = "" Then Exit Sub
CC = Range(AA & 65536).End(xlUp).Row
Do While CC >= 1
For EE = 1 To VBA.Len(Range(AA & CC))
   dd = VBA.Mid$(Range(AA & CC), EE, Len(BB))
   If dd Like BB Then
   Rows(CC).Delete
End If
Next
CC = CC - 1
Loop
End Sub
------------------------------------

但是只能删除当前表中指定列中含有指定字符的行，如何加一段代码删除工作簿中所有表（sheet）指定列中含有指定字符的行，
请高手不吝赐教

小虫

wower

Sub 删除指定列中含有指定字符的行()
AA = "A"
BB = "t"
If AA = "" Then Exit Sub
CC = Range(AA & 65536).End(xlUp).Row
Dim CurrentWS As Worksheet
For Each CurrentWS In Worksheets
Do While CC >= 1
For EE = 1 To VBA.Len(Range(AA & CC))
   dd = VBA.Mid$(Range(AA & CC), EE, Len(BB))
   If dd Like BB Then
   Rows(CC).Delete
   End If
Next
CC = CC - 1
Loop
Next
End Sub

xiaochong

Sub 删除指定列中含有指定字符的行()
AA = "A"
BB = "t"
If AA = "" Then Exit Sub
CC = Range(AA & 65 ...
wower 发表于 2010-9-19 17:17

    thank you very much! but it does not work after I test

wower

Sub 删除指定列中含有指定字符的行()
AA = "A"
BB = "t"
If AA = "" Then Exit Sub
Dim CurrentWS As Worksheet
For Each CurrentWS In Worksheets
Worksheets(CurrentWS.Name).Activate
CC = Range(AA & 65536).End(xlUp).Row
Do While CC >= 1
For EE = 1 To VBA.Len(Range(AA & CC))
   dd = VBA.Mid$(Range(AA & CC), EE, Len(BB))
   If dd Like BB Then
   Rows(CC).Delete
   End If
Next
CC = CC - 1
Loop
Next CurrentWS
End Sub

不好意思，我刚才没有测试。这次我做了个例子测试过了，应该可以了。

xiaochong

Sub 删除指定列中含有指定字符的行()
AA = "A"
BB = "t"
If AA = "" Then Exit Sub
Dim CurrentWS As W ...
wower 发表于 2010-9-19 22:36

    多谢大牛，works very well，

wower

回复 5# xiaochong


    不客气，能帮上忙就好。