excel筛选的宏代码（excel宏的编程实例筛选数据）

excel宏命令（条件筛选）

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

excel2007中单击文本框，自动筛选文本框里面的内容的宏代码

Sub 文本框()

On Error Resume Next

mSs=inputbox("请输入要筛选的关键字，如办公室")

Sheets("基本资料").Select

ActiveSheet.ShowAllData

Sheets("基本资料").Select

ActiveSheet.Range("$A$3:$CC$286").AutoFilter Field:=7, Criteria1:=mss

ActiveWindow.SmallScroll Down:=-60

ActiveWindow.ScrollRow = 4

ActiveWindow.SmallScroll Down:=-1

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