EXCEL表如何将一个总表按某列分类汇总后,然后自动生成其分类后的若干新表。 自动生成下图效果 如何在EXCEL表中进行自动分类汇总
自己收藏的一个:在代码窗口新建一个模块,粘贴此代码。然后运行。
Sub 自动分表()
删除分表
Dim E As Integer
Dim RanB As Range
Dim RanA As Range
Dim Y As Integer
Dim X As String
Dim ARR() As String
Dim P As Integer
Dim ICol
ICol = Application.InputBox("请输入你所要分的列1-11列:" & Chr(10) & "(如按B列分请输入2)", "提示:", "4", Type:=1)
If ICol = "" Then Exit Sub
Application.ScreenUpdating = False
For Each RanB In Sheet1.Range(Cells(2, ICol), Cells(Sheet1.Range("d65536").End(xlUp).Row, ICol))
If RanB <> "" Then
If InStr(X, Sheet1.Cells(RanB.Row, ICol)) = 0 Then
If X = "" Then
X = RanB
Else
X = X & "," & RanB
End If
E = Application.CountIf(Sheet1.Columns(ICol), RanB)
ReDim ARR(1 To E + 1, 1 To 11)
Set RanA = Sheet1.Cells(1, ICol)
For Y = 1 To E
Set RanA = Sheet1.Columns(ICol).Find(RanB, RanA, , , xlByColumns, , , False)
For P = 1 To 11
If Y = 1 Then
ARR(Y, P) = Sheet1.Cells(1, P)
ARR(Y + 1, P) = Sheet1.Cells(RanA.Row, P)
Else
ARR(Y + 1, P) = Sheet1.Cells(RanA.Row, P)
End If
Next P
Next Y
'上面部为:按条件生成多个分表,用数组方式,查找方式,循环
'*********************************************************************
'这一部分为加网线
Sheets.Add.Name = RanB '新建工作表,重命名
With ActiveSheet
.Range("A3").Resize(Y, 11) = ARR '粘贴数据
.Rows("2:2").RowHeight = 6 '2行缩少高度
.Range("A3:K" & E + 3).Borders.LineStyle = 1 '全部加网格线
.Range("A1") = Sheet1.Cells(1, ICol) & RanB & "号成绩表" '表头名
.Range("A1:K1").Select '全选A1:K1
With Selection
.MergeCells = True '合并A1:K1
.HorizontalAlignment = xlCenter '居中A1:K1
.Font.Size = 22 '字体设为22号
End With
End With
Sheet1.Select
End If
End If
Next
Sheets("总表").Select
Application.ScreenUpdating = True
MsgBox "已经按 " & Sheet1.Cells(1, ICol) & " 生成分表:" & Chr(10) & X, 48, "提示"
Exit Sub
100:
MsgBox "运行出错", 48, "出错"
End Sub
Sub 删除
如何将EXCEL表中分类汇总后的数据单独提取出来?~
具体操作步骤如下:
1.首先打开分类汇总后的数据,选中后右键单击,选择复制
2.找到一个空白单元格,右键单击,选择“选择性粘贴”
3.选择“数值”,点击“确定”
4.选择新得到的单元格,找到上方菜单栏的“数据”,然后点击“筛选”
5.找到汇总数据的那一行中空白单元所在的列,点击右上角的小三角
6.如图只勾选“空白”后点击“确定”
7.这样就只剩下汇总后的数据啦
拓展资料:
Excel相同名字或者相同的信息排列在一起的方法:
1.首先打开控制面板
2.找到excel并双击打开
3.选中你所需要排序的区域
4.点击工具栏中的“开始”选项,找到“开始”选项下的“编辑”栏中的“排序和筛选”,点击“排序和筛选”的下拉箭头
5.在“排序和筛选”的下拉列表中选择“自定义排序”
6.点开“自定义排序”,在其中点开“选项”这一按钮
7.点开“选项”后,可以在其中设置排序的方法,以“姓名”为例,则可以勾选“字母排序”这一选项,制定好后,点击确定
8.根据自己排序的内容选择关键词、排序的依据以及次序,选定后单击“确定”按钮即可完成排序
9.若排序的依据不止一个,则可以点击“添加条件”按钮
10.在“主要关键词”下方会出现“次要关键词”选项,根据自己的排序要求进行选择,最后单击“确定”按钮,即可完成排序
1、首先在电脑上用2007版excel软件打开目标文件。
2、然后选中一个单元格,点击上方的“数据”选项。
3、然后在格式的下拉菜单中,点击“分类汇总”选项。
4、然后在出现的界面中,按照个人需要设置好分类汇总选项。
5、设置完后,点击确定按钮,如图所示。
6、完成以上设置后,即可在EXCEL表中进行自动分类汇总。
#阴婕琰# Excel电子表格怎么分类汇总? -
(17070258237): 请问你想汇总计算那一列? 举个例子,现在你有A B C D E多列数据,其中第一行单元格为各列数据的名称.假设你现在需要依据B列的内容进行分类. 1. 选中整个数据区,包括标题行,对整个数据区按B列排序(升序降序均可).这一步非常...
#阴婕琰# EXCEL中如何将数个工作表里的所有数据分类并汇总到一个单元格中? -
(17070258237): 用vlookup 函数可以解决,比如:表一中: A1: 张三 B1: 20 表二中: A1: 张三 B1:120 在表一C1 中:输入=VLOOKUP(A1,[表2.xlsx]Sh...
#阴婕琰# 如何对Excel表格进行分类汇总 -
(17070258237): 当需要在Excel中对数据进行分类计算时,除了使用数据透视表,还可以使用分类汇总命令.与数据透视表不同的是,它可以直接在数据区域中插入汇总行,从而可以同时看到数据明细和汇总.下面是分类汇总的使用方法: 在进行分类汇总前,...
#阴婕琰# 这个表如何用EXCEL进行分类汇总? -
(17070258237): 首先,先对“汇总信息”列进行排序.将相同的放在一起. 然后“数据”——分类汇总—— 分类字段“汇总信息” 汇总方式“求和” 选定汇总项“数量” OK
#阴婕琰# 如何把一张EXCEL表中的数字按类别合计后导入另一张EXCEL表? -
(17070258237): 设A列为科目,B列为借方,C列为贷方;F列为汇总的科目名称,G列为汇总的借方,H列为汇总的贷方.数据都从第二列开始 G2=SUMIF($A$2:$A$100,G2,$B$2:$B$100) H2=SUMIF($A$2:$A$100,H2,$C$2:$C$100) 注:G列最好按科目代码或名称顺序填写 向下复制公式
#阴婕琰# EXCEL表格分类汇总具体方法 -
(17070258237): 先把你需要汇总的数据按小类编号排序,升序降序无所谓,但一定要排序,然后点数据——分类汇总--分类字段选小类编号--汇总方式选求和--选定汇总项中勾选合计收银金额--确定. 结果出来后点左侧小数字123中的2得出汇总表,全选它,然后按f5定位,勾选可见单元格,复制,粘贴到表二中;在表二选中a列,点编辑——查找--查找内容中输入“汇总”--替换--内容为空.全部替换,结束.
#阴婕琰# Excel表格中“分类总汇”怎样使用? -
(17070258237): 先对数据进行排序,想要按什么进行分类汇总就以那一列数据为关键词进行排序,排序之后,在进行分类汇总. 这样可以在某一条件下进行汇总,是数据更加清晰.
#阴婕琰# 如何把excel工作簿中多个工作表的某一列的数据都汇总到一个工作表中???? -
(17070258237): 把excel工作簿中多个工作表的某一列的数据都汇总到一个工作表中的具体步骤如下: 1、首先我们打开要合并计算的工作表,在该工作簿中包含有4张工作表,我们将把第2-4张工作表中的数据合并到第1张工作表中. 2、案后我们选中要合并...
#阴婕琰# excel里有好多分表,汇总这些分表的总表随分表的改变而自动更新. -
(17070258237): 其实很简单的:在总表中,选择第一个单元,输入“=”;依此点击各个分表的第一个单元,中间用“+”号连接;回车.总表的第一个单元就做好了.再选择...
#阴婕琰# 在excel中如何用分类汇总计数,对某列在每一个行都计算它之前几行的各个不同类别的各自数量? -
(17070258237): 1、类别名称的生成.在C1单元格内输入或复制以下公式: =LOOKUP(1,1/NOT(COUNTIF($B$1:B$1,$B$2:$B$14)),$B$2:$B$14) 然后向右拖拽复制,直到所有类别生成完毕. 2、类别统计.在C2单元格输入或复制以下公式: =COUNTIF($B$2:$B2,C$1) 然后分别向右、向下拖拽复制,完成每个类别的统计工作. 如下图: