首页 办公 正文

excel宏筛选0(excel宏筛选数据)

删除一次2、excel中,内详3、怎么利用EXCEl的宏进行筛选excel表格中,删除一次要删除D列为0的行,Setrng=Application.Union(rng,怎么用宏把单元格为0的整行删掉?内详删除行的代码:1").delete删除行时,subDelRow()fori=7531to1step-1'从最后一行开始往上判断ifr...

本篇文章给大家谈谈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的信息别忘了在本站进行查找喔。

本文转载自互联网,如有侵权,联系删除