[已解决]next 没有 for什么原因

gaoxl

Sub test()
Application.DisplayAlerts = False '关闭提示
Application.ScreenUpdating = False '关闭屏幕更新，加快程序运行。
For m = 65536 To 1 Step -1
ThisWorkbook.Sheets(3).Select
If Cells(m, 2) = GSM Then
y = Cells(m, 1)
  For k = 1 To Sheets.Count
  Sheets(k).Select
    For i = 65536 To 1 Step -1
    If Cells(i, 1) = y Then Rows(i).Delete
    Next i
  Next k
  Next m
Application.DisplayAlerts = ture
Application.ScreenUpdating = ture
End Sub
这个是在那个基础上改进的只是所要删除的内容为7的行
是因为B列中为GSM，我已经修改的但是调试老是提示：编译错误next没有for

A列	B列
21	GSM+UMTS
23	GSM+UMTS
7	GSM
42	GSM
45	GSM+UMTS

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-5-18 16:52

1. 
   
2. If Cells(m, 2) = GSM Then
   
3. y = Cells(m, 1)
   
4.   For k = 1 To Sheets.Count
   
5.   Sheets(k).Select
   
6.     For i = 65536 To 1 Step -1
   
7.     If Cells(i, 1) = y Then Rows(i).Delete
   
8.     Next i
   
9.   Next k
   
10. end if
    
11. Next m
    

复制代码

少了个end if

跳转到最佳答案楼层

zjcat35

1. 
   
2. If Cells(m, 2) = GSM Then
   
3. y = Cells(m, 1)
   
4.   For k = 1 To Sheets.Count
   
5.   Sheets(k).Select
   
6.     For i = 65536 To 1 Step -1
   
7.     If Cells(i, 1) = y Then Rows(i).Delete
   
8.     Next i
   
9.   Next k
   
10. end if
    
11. Next m
    

复制代码

少了个end if