[已解决]根据条件删除数据行

abc153

根据条件删除数据行.rar (2.42 KB, 下载次数: 1)

2015-5-5 13:52 上传

点击文件名下载附件
谢谢老师！如何根据条件，将同类数据删除.

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-5 14:13

根据条件删除数据行.rar (10.09 KB, 下载次数: 6)

2015-5-5 14:12 上传

点击文件名下载附件
楼主试试，只要选择F2的下拉框，选择啥就删除啥

跳转到最佳答案楼层

qh8600

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim m, ar, br(), i, n, j
   
3.     If Target.Address = "$F$2" Then
   
4.         m = Target.Value
   
5.         ar = Sheet2.Range("i1:n" & Sheet2.Cells(Rows.Count, "i").End(3).Row)
   
6.         ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
   
7.         For i = 1 To UBound(ar)
   
8.             If ar(i, 1) <> m Then
   
9.                 n = n + 1
   
10.                 For j = 1 To UBound(ar, 2)
    
11.                     br(n, j) = ar(i, j)
    
12.                 Next
    
13.             End If
    
14.         Next
    
15.         Sheet2.Range("i1").Resize(UBound(ar), UBound(ar, 2)).ClearContents
    
16.         Sheet2.Range("i1").Resize(n, UBound(ar, 2)) = br
    
17.     End If
    
18. End Sub
    

复制代码

附件楼下

qh8600

根据条件删除数据行.rar (10.09 KB, 下载次数: 6)

2015-5-5 14:12 上传

点击文件名下载附件
楼主试试，只要选择F2的下拉框，选择啥就删除啥