删除小于某个数值的单元格所在行

zcb412

删除小于某个数值的单元格所在行.rar (4.66 KB, 下载次数: 84)

2014-8-29 10:20 上传

点击文件名下载附件

请教：怎么删除B列中小于21的所有单元格所在行

山风

Sub 删除行()
r = Range("B65536").End(xlUp).Row '行数
For h = r To 1 Step -1
   If Cells(h, 2) < 21 Then Cells(h, 2).EntireRow.Delete
   Next
End Sub
删除小于某个数值的单元格所在行.zip (6.67 KB, 下载次数: 199)

2014-8-29 10:41 上传

点击文件名下载附件

zcb412

谢谢山风，有你这个老师真好

zcb412

山风 发表于 2014-8-29 10:41
Sub 删除行()
r = Range("B65536").End(xlUp).Row '行数
For h = r To 1 Step -1

如果你有时间的话，我想请你解释每一行语法的意思，这样，遇到类似的问题我就可以自己解决

山风

Sub 删除行()
r = Range("B65536").End(xlUp).Row '行数
For h = r To 1 Step -1  ‘Step步长，-1表示从下边向上每次移动一个单元格
   If Cells(h, 2) < 21 Then Cells(h, 2).EntireRow.Delete ’当条件 Cells(h, 2) < 21满足时,删除其单元格所在的行
   Next 与‘For h = r To 1构成循环
End Sub

书生1688

想看一下有没有不循环就能直接删除的方法

yuhan4488

1. Sub del1()
   
2.     ar = ActiveSheet.UsedRange
   
3.     m = 1
   
4.     For i = 2 To UBound(ar)
   
5.         If ar(i, 2) <> ar(i, 4) Then
   
6.             m = m + 1
   
7.             For J = 1 To UBound(ar, 2)
   
8.                 ar(m, J) = ar(i, J)
   
9.             Next
   
10.         End If
    
11.     Next
    
12.     ActiveSheet.UsedRange.ClearContents
    
13.     Range("A1").Resize(m, J - 1) = ar
    
14. End Sub

复制代码