VBA程序：筛选并复制数据

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA 在当前工作表列 A 中有一系列数据，用户在单元格 C2 中输入值，将列 A 中包含单元格 C2 的值的数据复制到列 E 中，如下图 1 所示。 图 1 可以使用下面的程序： Sub GetSpecialValue() With ActiveSheet    .Range( "E2:E"   & .Cells(.Rows.Count, 1).End(xlUp).Row).Clear    .Range( "A1" ).AutoFilter Field:=1, Criteria1:= "=*"   &  .Range( "C2" ).Value  & "*" , Operator:=xlAnd    .Range( "A2:A"   &  .Cells(.Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy .Range( "E2" ).PasteSpecial .AutoFilterMode = False .Range( "C2" ).Select End With Application.CutCopyMode = False End Sub 如果想要去掉筛选结果中的重复值，可以在程序中添加一条语句： .Range( "E2" ).RemoveDuplicates Columns:=1, Header:=xlNo 完整的程序代码如下： Sub GetSpecialValue() With ActiveSheet    .Range( "E2:E"   & .Ce ………………………………