将符合单元格条件的行删除

w060925

点击“删除职工信息”按钮，输入职工姓名，点击确定后，将该职工在三个表中所在的行删除。
    工作经历、学历及聘任表中的部分信息是引用的员工信息表的信息
    三个表的截至行号都是 364  
   
    下载的宏模块怎不起做用？

    当输入风华时，点击确定，退出了（没有任何变化）；当输入风华时，点击取消，则三个表原来的第一行，第二行都被删除了（也就是说都上移了两行）

承望高手帮忙修改！！！

skvin

在楼主的基础上更改如下，请楼主测试

1. Sub 删除职工信息()
   
2. Dim i%, j%, k%, result, info
   
3. Dim sht%
   
4. result = Application.InputBox(prompt:="请输入要删除的名字：", Title:="删除", Type:=2)
   
5. k = 0
   
6. Application.ScreenUpdating = False
   
7. For sht = Sheets.Count To 1 Step -1
   
8. With Sheets(sht)
   
9. j = .Cells(65536, 1).End(xlUp).Row
   
10. For i = j To 2 Step -1
    
11. If .Cells(i, 3) = result Then
    
12. .Rows(i).Delete
    
13. k = k + 1
    
14. End If
    
15. Next
    
16. End With
    
17. Next
    
18. If k > 0 Then
    
19. info = "共删除" & k & "项数据"
    
20. Else
    
21. info = "没有找到符合条件的数据"
    
22. End If
    
23. MsgBox info
    
24. Application.ScreenUpdating = True
    
25. End Sub
    

复制代码