[已解决]如何用代码删除指定行？

小小辉

附件 删除行附件.zip (15.69 KB, 下载次数: 5)

2015-1-11 08:29 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

xdragon

2015-1-11 09:32

1. Sub test()
   
2.     Dim rng As Range
   
3.     Dim arr, i&
   
4.     On Error Resume Next '防止无条件格式出错
   
5.     arr = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
   
6.     For i = 1 To UBound(arr)
   
7.      '判断条件格式中的第一个条件的公式与该单元格相等
   
8.         If Application.Evaluate(Cells(i, 1).FormatConditions(1).Formula1) = arr(i, 1) Then
   
9.             If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
   
10.         End If
    
11.     Next
    
12.     rng.Delete
    
13. End Sub

复制代码

跳转到最佳答案楼层

qh8600

按照条件格式的条件筛选，然后删除整行

xdragon

1. Sub test()
   
2.     Dim rng As Range
   
3.     Dim arr, i&
   
4.     On Error Resume Next '防止无条件格式出错
   
5.     arr = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
   
6.     For i = 1 To UBound(arr)
   
7.      '判断条件格式中的第一个条件的公式与该单元格相等
   
8.         If Application.Evaluate(Cells(i, 1).FormatConditions(1).Formula1) = arr(i, 1) Then
   
9.             If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
   
10.         End If
    
11.     Next
    
12.     rng.Delete
    
13. End Sub

复制代码