excel表格人员分类
篇一：EXCEL表多级分类方法
二、对多列进行分类汇总
如上例中需要同时对“城市”列和“商品名称”列进行分类汇总，可以插入嵌套分类汇总。
1.对数据进行多列排序，即进行多关键字排序。
首先选择数据区域中的某个单元格。
在Excel 2003中，单击菜单“数据→排序”。弹出“排序”对话框，其中主要关键字选择“城市”，次要关键字选择“商品名称”，其他选择默认。
如果是Excel 2007，在“数据”选项卡的“排序和筛选”组中单击“排序”命令，在弹出的“排序”对话框中，单击“添加条件”按钮添加次要关键字排序条件，然后主要关键字选择“城市”，次要关键字选择“商品名称”，其他选择默认。
2.对“城市”列进行分类汇总（外部分类汇总）。
按上述方法打开“分类汇总”对话框，在“分类字段”下选择“城市”，在“汇总方式”中选择默认的“求和”，在“选定汇总项”下仅选择“销售额”。单击“确定”。
3.对“商品名称”列进行分类汇总（嵌套分类汇总）。
再次打开“分类汇总”对话框，在“分类字段”下选择“商品名称”，取消选择“替换当前分类汇总”，单击“确定”。
这时Excel将按“城市”列和“商品名称”列对“销售额”进行分类汇总。
如果不需要显示明细数据，可以单击左侧的分级显示符号，如本例中右上角的数字和左侧的减号来隐藏明细数据。
篇二：EXCEL表格制作分类下拉列表
在平日的工作中，为节省输入的时间及减少输入错误，经常看到并且使用Excel表格的下拉列表。那么Excel表格的下拉列表是怎样创建的呢?
本例中，如果你在乡镇选项栏选择开发区, 在学校名称下拉列表仅显示开发区学校名称;如果你在乡镇选项栏选择城关镇, 在学校名称下拉列表仅显示城关镇学校名称操作步骤如下：
第一步：建库
启动Excel2003，切换到Sheet2工作表(其他工作表也可)中，将学校名称按乡镇分别输入不同列的单元格中，建立一个学校名称数据库。
提示：如果有其他新增加的学校名称，可以随时将名称输入到该列下面的单元格中。
第二步：命名
在Sheet2工作表中，选中A列(开发区学校名称所在列)，然后将光标定在名称栏内(位于编辑栏左侧)，输入开发区，并按回车键进行确认。
仿照上面的操作，将B、C、D列分别命名为城关镇、城北乡、刘集乡。
第三步：建立
切换到Sheet1工作表中，选中需要输入乡镇的单元格(如K4单元格)，执行数据;有效性命令，打开数据有效性对话框。进入设置标签，单击允许右侧的下拉按钮，选中序列选项，在下面接着出现的来源方框中，输入开发区、城关镇、城北乡、刘集乡序列，输入完成后，确定退出。
提示：在输入序列时，序列中各元素之间请用英文状态下的逗号隔开。
再选中需要输入学校名称的单元格(如C3单元格)，再次打开数据有效性对话框，选中序列选项后，在来源方框中输入公式：=INDIRECT(K4)，确定退出。
提示：如果点确定出现错误提示：目前源出现错误。是否继续?不要管它，点击是即可，是因为K4单元格目前没有数据。
第四步：使用
选中K4单元格，在其右侧出现了个下拉按钮，单击此按钮，即可选择乡镇填入单元格中。然后选中C3单元格，同样在其右侧出现了个下拉按钮，单击此按钮，即可从相应学校名称列表中选择需要的该乡镇学校名称填入该单元格中。
篇三：excel表格数据按分类保存
Sub 分类保存()
'变量定义
Dim mynum_x As Single
Dim mynum_y As Single
Dim mynum_s As Single
Dim my_range1 As Range
Dim my_range2 As Range
Dim my_range3 As Range
Dim my_range4 As Range
Dim my_sheetssum As Worksheet
Dim my_sheetssub As Worksheet
Dim my_dic
Dim my_arr_list
Dim my_arr_list1
Dim my_path1 As String
Dim my_path2 As String
Dim my_name As String
'取运行位置
my_path1 = ThisWorkbook.Path
'取部门字典
Set my_dic1 = CreateObject("Scripting.Dictionary")
For Each cell In Sheets("基础汇总表").Range("b2").Resize(Sheets("基础汇总表").UsedRange.Rows.Count - 1, 1)
my_dic1(cell.Text) = ""
Next cell
my_arr_list = my_dic1.keys
'分表过程
Set my_range1 = Sheets("基础汇总表").Range("b2").Resize(Sheets("基础汇总表").UsedRange.Rows.Count - 1, 1)
'建立分表
For mynum_x = 0 To UBound(my_arr_list) - LBound(my_arr_list)
my_name = my_arr_list(mynum_x)
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) Sheets(Worksheets.Count).Name = my_name
Next mynum_x
For mynum_x = 0 To UBound(my_arr_list) - LBound(my_arr_list) '取部门
mynum_s = 0
mynum_y = 0
Set my_range4 = Sheets(&(转 载 于:wWw.cssYQ.COm 书 业 网:excel表格人员分类)quot;基础汇总表").Range("b1").Resize(Sheets("基础汇总表").UsedRange.Rows.Count, 1)
For Each cell In my_range4 '对比值
mynum_y = mynum_y + 1
If my_range4.Cells(mynum_y).Text = my_arr_list(mynum_x) Thenmynum_s = mynum_s + 1
Set my_range2 = Sheets("基础汇总表").Rows(mynum_y)
Set my_range3 = Sheets(my_arr_list(mynum_x)).Rows(mynum_s)Set my_sheetssub = Sheets(my_arr_list(mynum_x))
my_sheetssub.Activate
my_range2.Copy
ActiveSheet.Paste
Destination:=Worksheets(my_arr_list(mynum_x)).Rows(mynum_s)End If
Next cell
Next mynum_x
'分类保存
For mynum_x = 0 To UBound(my_arr_list) - LBound(my_arr_list)
my_name = my_arr_list(mynum_x)
Set my_sheetssum = Sheets(my_arr_list(mynum_x))
my_sheetssum.Copy
ChDir my_path1
my_path2 = my_path1 + "\" + my_name
ActiveWorkbook.SaveAs Filename:=my_path2, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close savechanges:=True, Filename:=my_path2 Next mynum_x
End Sub