[已解决]我的工作簿中每个表A列里含有7，有的含有多个，我想用函数将含有7的所有列都删除！但

gaoxl

Sub test()
Application.DisplayAlerts = False '关闭提示
Application.ScreenUpdating = False '关闭屏幕更新，加快程序运行。
For k = 1 To Sheets.Count
Sheets(k).Select


For each i In ActiveSheet.Range("A:A")

If i.Value = "7" Then

Rows(i.Row).Delete

End If

Next i

Next k

End Sub

最佳答案

月排行榜 / 总排行榜

linch92413

2012-5-18 13:39

这个可能要用倒循环,试试看下面这个
Sub test()
Application.DisplayAlerts = False '关闭提示
Application.ScreenUpdating = False '关闭屏幕更新，加快程序运行。
For k = 1 To Sheets.Count
Sheets(k).Select
for i=65536 to1 step -1
if cells(i,1)=7 then rows(i).delete
next i
next k
end sub

跳转到最佳答案楼层

linch92413

这个可能要用倒循环,试试看下面这个
Sub test()
Application.DisplayAlerts = False '关闭提示
Application.ScreenUpdating = False '关闭屏幕更新，加快程序运行。
For k = 1 To Sheets.Count
Sheets(k).Select
for i=65536 to1 step -1
if cells(i,1)=7 then rows(i).delete
next i
next k
end sub

9lee

把其中的条件语句改成下面的试试：

1. If InStr(i.Value, "7") > 0 Then

复制代码

suntree

1. Sub test()
   
2.     Application.DisplayAlerts = False '关闭提示
   
3.     Application.ScreenUpdating = False '关闭屏幕更新，加快程序运行。
   
4.     For k = 1 To Sheets.Count
   
5.         Sheets("sheet" & k).Select
   
6.         For i = [a65536].End(xlUp).Row To 1 step -1
   
7.             For m = 1 To Len(Cells(i, 1))
   
8.                 If Mid(Cells(i, 1), m, 1) = "7" Then
   
9.                     Rows(Cells(i, 1).Row).Delete
   
10.                 End If
    
11.     Next m, i, k
    
12.     Application.DisplayAlerts = True
    
13.    Application.ScreenUpdating = True
    
14. End Sub
    
15. 
    

复制代码