首页 办公 正文

excel宏编写筛选(excel高级筛选宏录制)

以及excel高级筛选宏录制对应的知识点,3、excel宏命令(条件筛选)怎么利用EXCEl的宏进行筛选在你数据当前的左下角sheet鼠标右键点击最后一个查看代码把下面的代码复制到里面使用的时候03版是菜单工具----宏---宏---找到test的宏执行即可Subtest()Application.ScreenUpdating=Fal...

本篇文章给大家谈谈excel宏编写筛选,以及excel高级筛选宏录制对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。

本文目录:

怎么利用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宏多条件筛选复制?

Sub aa()

Dim i, n

For i = 4 To Range("b6536").End(xlUp).Row

x = --Left(Cells(i, "b"), 2)

If x = 21 And Cells(i, "O") 10 Then

y = Sheets(2).Range("A65536").End(xlUp).Row

Sheets(2).Cells(y + 1, "A") = Cells(i, "g")

End If

Next

End Sub

复制到Sheet3的vba窗口

将sheet3 B列 是21 开头,且 O列10 ,对应G列数据,复制到SHEET2

excel宏命令(条件筛选)

开发工具——宏——编辑宏——输入代码如下——运行宏,结果筛选出A列数据中的大于5的数值,如图:

关于excel宏编写筛选和excel高级筛选宏录制的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。

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