如何快速将一张表格的数据筛选到另一张表格上

大家好,乐天来为大家解答以下的问题，关于如何快速将一张表格的数据筛选到另一张表格上这个很多人还不知道,现在让我们一起来看看吧！

1、Sub Macro1()    Sheets("Sheet2").Select    Range("A1").Value = "姓名"    Range("B1").Value = "性别"    Range("C1").Value = "出生年月"    Range("D1").Value = "年龄"   Dim a As Integer   Dim b As Integer    a = 2    For b = 2 To Sheets("Sheet1").Cells(65536, 4).End(xlUp).Row   If Sheets("sheet1").Range("D" & b).Value > 35 Then   Sheets("sheet2").Range("A" & a).Value = Sheets("sheet1").Range("A" & b).Value   Sheets("sheet2").Range("B" & a).Value = Sheets("sheet1").Range("B" & b).Value   Sheets("sheet2").Range("C" & a).Value = Sheets("sheet1").Range("C" & b).Value   Sheets("sheet2").Range("D" & a).Value = Sheets("sheet1").Range("D" & b).Value    a = a + 1    End If   Next b   MsgBox ("数据查找完成")End Sub打开EXCEL表，在你的“年龄”上选择“工具栏”上的“数据”－“筛选”－点击“筛选”右侧三角下拉箭头－选择：自定义－打开：自定义自选方式－在显示行－数据栏下拉菜单选择：“大于”，在右侧数据下拉菜单填写“35”确定后。

2、将所筛选的35岁以上的数据及姓名、性别、出生年月、年龄全部选定点击剪切后，粘贴到另一张表中，试试看如何？直接点击高级筛选。

3、在弹出的对话框中之一行填源表的5列数据区域，第三个条件填写>35，然后在粘贴到这里选中你复制到的表中即可。

本文分享完毕，希望对大家有所帮助。