列降序后删除小于某值的全部行

天地一相

感谢帮助！详见截图附件。

3190496160

没有必要先降序排列吧，直接循环不就行了

天地一相

3190496160 发表于 2023-3-8 21:41
没有必要先降序排列吧，直接循环不就行了

谢谢。是没必要。我其实是想要这样一句：如何获得A列自下向上找首个等于某值（如100）的单元格的行号。知道这个值，我直接就可以定位删除了。

准提部林

Sub TEST_A1()
With Range([a1], ActiveSheet.UsedRange)
     .Sort Key1:=Range("G1"), Order1:=xlDescending, Header:=xlYes
     arr = .Columns(7)
     r = .Rows.Count
     For i = 2 To r
         If arr(i, 1) < 20 Then Range("a" & i & ":a" & r).EntireRow.Delete
     Next i
End With
End Sub

bqwd36

for i=1 to Range("A" & Rows.Count).End(xlUp).row
if cells(i,1)=100 then cells(i,1).entirerow.delete
next

gwjkkkkk

天地一相 发表于 2023-3-8 21:44
谢谢。是没必要。我其实是想要这样一句：如何获得A列自下向上找首个等于某值（如100）的单元格的行号。知 ...

请参考。。。