删除A列数值前四位包含的数字所有行

falcon9999

请各位老师，帮忙一下。删除A列数字前四位包含的指定数字的所有行。 一定要是前四位包含。附件中指定的数字。

grf1973

1. Sub tt()
   
2.     Dim DelRng As Range
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     Set DelRng = [a65536]
   
6.     brr = Range("g2:g" & [g65536].End(3).Row)
   
7.     For i = 1 To UBound(brr)
   
8.         d(CStr(brr(i, 1))) = ""
   
9.     Next
   
10.     For i = 2 To UBound(arr)
    
11.         If d.exists(Left(arr(i, 1), 4)) Then Set DelRng = Union(DelRng, Cells(i, 1))
    
12.     Next
    
13.     DelRng.Delete shift:=xlShiftUp
    
14. End Sub

复制代码

falcon9999

grf1973 发表于 2018-7-9 14:40

感谢老师。给予的帮助，让我工作得到了缓压的时间 。再次感谢 。