[已解决]求代码

tough2010

我要删除一个工作薄中所有工作表内，含有一个特定字符的所有行，例如含有字符“A",该怎么写代码？

最佳答案

月排行榜 / 总排行榜

wayy

2012-1-12 17:00

1. Sub DelA()
   
2. Dim i As Long
   
3. Dim x As Long
   
4. On Error Resume Next
   
5. For i = 1 To Sheets.Count
   
6. 　　With Sheets(i)
   
7. 　　　For x = 1 To 999
   
8. 　　　.Cells.Find("a").EntireRow.Delete
   
9. 　　　Next
   
10. 　　End With
    
11. Next
    
12. End Sub

复制代码

删除不彻底可以多运行两次

跳转到最佳答案楼层

tough2010

wayy 发表于 2012-1-12 16:48
字　符无论在任何一个单元格都要整行删除吗？

是的 ，是的，是的

wayy

字　符无论在任何一个单元格都要整行删除吗？

wayy

1. Sub DelA()
   
2. Dim i As Long
   
3. Dim x As Long
   
4. On Error Resume Next
   
5. For i = 1 To Sheets.Count
   
6. 　　With Sheets(i)
   
7. 　　　For x = 1 To 999
   
8. 　　　.Cells.Find("a").EntireRow.Delete
   
9. 　　　Next
   
10. 　　End With
    
11. Next
    
12. End Sub

复制代码

删除不彻底可以多运行两次

tough2010

希望有一天我也能成为像版主那样的excel精英

zjcat35

1. Sub A()
   
2.   Dim sh As Worksheet, rg As Range
   
3.     For Each sh In Worksheets
   
4.     For Each rg In sh.Cells
   
5.       If InStr(rg, "A") > 0 Then
   
6.         rg.EntireRow.Delete
   
7.       End If
   
8.     Next
   
9.     Next
   
10. End Sub

复制代码

我的代码运行速度很慢！