如何用程序实现Excel表格按要求将其中的内容分类,保存到新的表中,并使每个新的分类均生成一个sheet保存?

Question

是这样的,我有一份EXCEL表,只有一个sheet,是已经按科室排好人员的顺序的.现在要做的是把这个EXCEL表按科室生成一个新的表,也就是说一个科室就占一个sheet.并且sheet名为科室名如下:
原表:  
      工资表:
      张三          财务
      李四          财务
                    财务 汇总
      王五          技术
      王七          技术
      刘三          技术
                    技术汇总新表:
      工资表:
      财务(sheet1名称):      张三          财务
      李四          财务
                    财务 汇总
      技术(sheet2名称):
      王五          技术
      王七          技术
      刘三          技术
                    技术汇总
请问如何做到呢?
我是这样做的,先把excel数据导入到一个spread中,然后分类再导出到新的excel中,不过这样做格式不好调,请问有没直接从excel文件之间转换的方法呢,或者更好的方法

Answer 1

數據管理用ACCESS來做，
在裏面建二個查詢即可。查詢結果可以用工具菜單的office協作來導出來EXCEL。

Answer 2

首先在你仅有的sheet前插入一个空白的新sheet,然后在宏里运行下面代码就可以了
假定你最初的sheet是以下格式:第一列是人命,第二列是部门
Sub sss()   '仅以 财务  为例,其他的很容易补充
Sheets("Sheet1").Copy after:=Sheets(2) '创建一个新的表格,在你原来有的sheet后面,内容和你开始添加的一样
Sheets("Sheet1 (2)").Name = "财务" '把新建的表格命名为:财务
k = 0
For i = 1 To 4'你原来sheet中的行数
   If Sheets(2).Cells(i, 2) = "财务" Then
      k = k + 1
      Sheets("财务").Cells(k, 1) = Sheets(2).Cells(i, 1)' 人员名称
      Sheets("财务").Cells(k, 2) = Sheets(2).Cells(i, 2)'部门
   End If
Next i
End Sub

Answer 3

http://blog.chinaunix.net/u/11463/showart.php?id=128455
这有些内容,或许你可以看看

Answer 4

Anylib,创意、自由、灵活的体现，超强的报表功能，独特的双数据源连接，全功能的表格组件，它带给你的是轻松，美妙！http://www.anylib.com