求助~在excel怎样用宏实现内容的自动筛选并复制！！

2025-01-18 23:16:58

推荐回答（2个）

回答1：

宏代码如下：

Sub 筛选()
For i = 1 To Sheets(1).[j65536].End(3).Row
If Sheets(1).Cells(i, 10) Like "*花都*" Then     '注凡Sheet1J列含有“花都”二字的记录均被视为符合要求。
a = Sheets(2).[j65536].End(3).Row + 1
Sheets(1).Range(i & ":" & i).Copy Sheets(2).Range(a & ":" & a)
End If
Next
End Sub

回答2：

Sub 宏2()
Cells.Select
Range("K3").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$14").AutoFilter Field:=10, Criteria1:="花都"
Range("A1:J12").Select
Range("J12").Activate
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Range("M15").Select
End Sub