本篇文章给大家谈谈excel宏筛选0,以及excel宏筛选数据对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录:
excel表格中,使用宏制作的一个功能呢,筛选“数据”表中,d列为0的,然后给删除掉,执行一次,删除一次
要删除D列为0的行,不需要进行筛选,用下面的代码:
Sub aa()
Dim rng As Range, cell
For Each cell In Range("d1:d21")
If cell = 0 Then
If rng Is Nothing Then
Set rng = cell
Else: Set rng = Application.Union(rng, cell)
End If
End If
Next cell
rng.EntireRow.Delete
End Sub
excel中,怎么用宏把单元格为0的整行删掉?内详
删除行的代码:
range("1:1").delete
删除行时,从顶上删除是不行的(删除后,总行号上移了呢),只能从底下删除。所以全代码是:
sub DelRow()
for i=7531 to 1 step -1 '从最后一行开始往上判断
if range("E" i)=0 then range(i ":" i).delete ‘如果等于0就删除
next
end sub
怎么利用EXCEl的宏进行筛选
在你数据当前的左下角sheet 鼠标右键 点击最后一个 查看代码 把下面的代码复制到里面
使用的时候 03版是 菜单 工具----宏---宏---找到test的宏执行 即可
Sub test()
Application.ScreenUpdating = False
Dim rng As Range
Dim r1, i As Long
Dim findvalue As Range
r1 = ActiveSheet.Range("B65536").End(xlUp).Row
i = 1
For Each rng In ActiveSheet.Range("B1:B" r1)
Set findvalue = ActiveSheet.Columns(1).Find(what:=rng.Value)
If Not findvalue Is Nothing Then
Cells(i, 3).Value = rng.Value
i = i + 1
End If
Next
Application.ScreenUpdating = True
End Sub
excel宏筛选0的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于excel宏筛选数据、excel宏筛选0的信息别忘了在本站进行查找喔。