EXCEL能筛选后自动分出表格来吗

发布网友 发布时间：2022-05-13 16:19

我来回答

共5个回答

热心网友 时间：2023-10-15 22:43

不能自动分出来，需要复制粘贴。

1.如图所示，总表格中，数量一栏分几个等级，想筛选出小于或等于40的产品。

首先，选择菜单表格栏，点击：‘筛选“，

然后点击数量列下拉三角符号，选择”数字筛选“。

2.选择：”小于或等于“，打开编辑窗口

填写数字：40.

点击：’确定”。

筛选完成。

3.筛选后，有22行数据符号要求，开始复制--粘贴。

鼠标选择筛选后的数据，然后按快捷键：“ALT+；”，即可快速定位选择单元格数值。然后鼠标右击选择：“复制”或者按快捷键：‘Ctrl+C“，复制单元格。

4.接着在新打开的工作表中，鼠标放在第一个单元格中，右击选择：”粘贴“或者按快捷键：”Ctrl+V“粘贴数据。

粘贴后显示的数据就是筛选后的数值咯。

5.另外一种，就是选中筛选后单元格后，点击：”查找和选择“--”定位条件“---”可见单元格“。点击：”确定“。

接着复制粘贴即可。

热心网友 时间：2023-10-15 22:44

我有一VBA，自动可将内容分成多个EXCEL表，不过我建议不用筛选，而用排序，按照种类排序，排好序后用VBA即可生成按照种类分成的表格
会宏的话自己复制下边内容，（不会可HI我或留言，我帮你，建议你将种类放在第一列）
Sub 拆分表()
Application.ScreenUpdating = False
Dim clm_d, hh As Integer
Dim mycell As Range
Dim nopes As New Collection
Dim rngop As Range
Set shtop = ActiveSheet
hh = Application.CountA(Range("1:110"))
clm_d = Application.InputBox(prompt:="请选择作为拆分的列" & Chr(13) _
& "注意:" & Chr(13) & "1、拆分要第一行为标题行" & Chr(13) & "2、输处列号(如1,2),用键盘输入", Type:=1)
If clm_d = False Or clm_d > hh Then Exit Sub
On Error Resume Next
For Each mycell In shtop.Range(Cells(4, clm_d), (shtop.Cells(4, clm_d).End(xlDown)))
nopes.Add mycell.Value, CStr(mycell.Value)
Next mycell
On Error GoTo 0
Set rngop = Cells.CurrentRegion
For Each Item In nopes
rngop.AutoFilter Field:=clm_d, Criteria1:=Item
rngop.Copy
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = Item
ActiveSheet.Paste
Next Item
rngop.AutoFilter
shtop.Activate
Application.ScreenUpdating = True
End Sub

热心网友 时间：2023-10-15 22:44

利用筛选条件，点出想要的种类数据之后，点击编辑-到-特殊-可见单元格，（此为繁体版的菜单名称，简体版office略有差异）
然后复制，就会将可见的单元格复制出来，粘贴到另外一个表格里面就可以了
其余的以此类推

热心网友 时间：2023-10-15 22:45

你点要按照分类的关键字的那列，然后点-数据-筛选-自动筛选-然后点第一行那个小三角分别选择不同的关键字，筛选完，复制下面数据到新表格

热心网友 时间：2023-10-15 22:46

用分类汇总或是排序法都行的。