[已解决]请问如何删除A列中指定姓名所在的行，见附件。

gavincar

批量删除指定行.zip (1.66 KB, 下载次数: 17)

2013-5-18 18:43 上传

点击文件名下载附件
如何删除A列中指定姓名所在的行

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-18 19:08

1. Sub 删除行3()
   
2.     Dim arr
   
3.     Dim lLastRow&
   
4.     Dim strRow$
   
5.     Dim i&
   
6.     lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     arr = Range("a1:b" & lLastRow)
   
8.     Application.ScreenUpdating = False
   
9.     For i = UBound(arr) To LBound(arr) Step -1
   
10.         Select Case arr(i, 1)
    
11.             Case "钱一", "李四", "刘二"
    
12.                 Rows(i).Delete
    
13.         End Select
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "删除完成"
    
17. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

先找到指定列的姓名单元格，再ENTIREROW.DELETE

hwc2ycy

1. Sub 删除行()
   
2.     Dim arr
   
3.     Dim lLastRow&
   
4.     Dim strRow$
   
5.     Dim i&
   
6.     lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     arr = Range("a1:b" & lLastRow)
   
8.     For i = LBound(arr) To UBound(arr)
   
9.         Select Case arr(i, 1)
   
10.             Case Is = "刘二":
    
11.                 strRow = strRow & i & ":" & i & ","
    
12.             Case Is = "钱一":
    
13.                 strRow = strRow & i & ":" & i & ","
    
14.             Case Is = "李四":
    
15.                 strRow = strRow & i & ":" & i & ","
    
16.         End Select
    
17.     Next
    
18.     If Len(strRow) > 0 Then
    
19.         strRow = Left(strRow, Len(strRow) - 1)
    
20.         Range(strRow).Delete
    
21.         MsgBox "删除完成"
    
22.     End If
    
23. End Sub
    

复制代码

hwc2ycy

1. Sub 删除行2()
   
2.     Dim arr
   
3.     Dim lLastRow&
   
4.     Dim strRow$
   
5.     Dim i&
   
6.     lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     arr = Range("a1:b" & lLastRow)
   
8.     Application.ScreenUpdating = False
   
9.     For i = UBound(arr) To LBound(arr)
   
10.         Select Case arr(i, 1)
    
11.             Case Is = "钱一":
    
12.                 Rows(i).Delete
    
13.             Case Is = "李四":
    
14.                 Rows(i).Delete
    
15.             Case Is = "刘二":
    
16.                 Rows(i).Delete
    
17.         End Select
    
18.     Next
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "删除完成"
    
21. End Sub

复制代码

hwc2ycy

1. Sub 删除行3()
   
2.     Dim arr
   
3.     Dim lLastRow&
   
4.     Dim strRow$
   
5.     Dim i&
   
6.     lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     arr = Range("a1:b" & lLastRow)
   
8.     Application.ScreenUpdating = False
   
9.     For i = UBound(arr) To LBound(arr) Step -1
   
10.         Select Case arr(i, 1)
    
11.             Case "钱一", "李四", "刘二"
    
12.                 Rows(i).Delete
    
13.         End Select
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "删除完成"
    
17. End Sub

复制代码