筛选出的内容单独成excel表 excel筛选出来的数据自动成一张表

今天来聊聊关于筛选出的内容单独成excel表，excel筛选出来的数据自动成一张表的文章，现在就为大家来简单介绍下筛选出的内容单独成excel表，excel筛选出来的数据自动成一张表，希望对各位小伙伴们有所帮助。

1、Sub Macro1()    Sheets("Sheet2").Select    Range("A1").Value = "https://www.citymotors.com.cn/jxzs/202304/姓名"    Range("B1").Value = "https://www.citymotors.com.cn/jxzs/202304/性别"    Range("C1").Value = "https://www.citymotors.com.cn/jxzs/202304/出生年月"    Range("D1").Value = "https://www.citymotors.com.cn/jxzs/202304/年龄"   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 = https://www.citymotors.com.cn/jxzs/202304/Sheets("sheet1").Range("A" & b).Value   Sheets("sheet2").Range("B" & a).Value = https://www.citymotors.com.cn/jxzs/202304/Sheets("sheet1").Range("B" & b).Value   Sheets("sheet2").Range("C" & a).Value = https://www.citymotors.com.cn/jxzs/202304/Sheets("sheet1").Range("C" & b).Value   Sheets("sheet2").Range("D" & a).Value = https://www.citymotors.com.cn/jxzs/202304/Sheets("sheet1").Range("D" & b).Value    a = a + 1    End If   Next b   MsgBox ("数据查找完成")End Sub打开EXCEL表，在你的“年龄”上选择“工具栏”上的“数据”－“筛选”－点击“筛选”右侧三角下拉箭头－选择：自定义－打开：自定义自选方式－在显示行－数据栏下拉菜单选择：“大于”，在右侧数据下拉菜单填写“35”确定后。

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

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

相信通过excel筛选出来的数据自动成一张表这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。