Excel中把指定内容筛选出,并复制到指定的工作簿中，并保存，VBA代码高手请进，有高分感谢
各位老师：
我有一个Excel表格,名称为《学校总工作簿》.我想根据它的 Sheet1 表格中 【H列】 的部分内容进行分别筛选，并将每次的筛选后的部分内容（是部分列,不是全部内容）分别复制到对应的工作簿中，并保存。（复制不是在同一工作簿，是另外的五个工作簿）
在复制时如果 这些需要更新的列中 如果原来有数据，将原有的数据刷新（使用新数据）。
H列会有五个名称,分别为 一年级、二年级、三年级、四年级、五年级。
一共有六个工作簿.名称分别为《学校总工作簿》、《一年级工作簿》、《二年级工作簿》、《三年级工作簿》、《四年级工作簿》、《五年级工作簿》。（筛选H列后【一年级】的内容复制到《一年级工作簿》，其他类似）这六个工作簿存在D盘同一文件夹中.
所有工作簿的内容都从第三行开始〈第一行和第二行为表头〉。
我只要将筛选出的A列、C列、D列、F列、H列、I列、K列 的内容复制新的工作簿中，其它 列的内容 不要（不是筛选后全部内容）。在复制过程中不能影响原来行距、列距，只复制内容，其他的表格设置都不能变。不影响其他单元格内的数据。
在复制到其他工作簿的时候，这些工作簿可能是打开的，也可能是关闭的，如果是打开的请先保存数据，在更新数据。
如果需要附件，请到http://club.excelhome.net/forum.php?mod=viewthread&tid=1160756&extra=下载附件需要账号ljd4895密码是mf4895
这个不用VBA就能解决，但我想，没必要分5个工作簿，这个功能太简单了，我能做到选择年级进行筛选，这个筛选不是什么向下的箭头什么的，是你点击一个单元格就能选择年级，选择完年级就能看到相应的，如果你要给别人发过去不同年级的，同时不想让别人看到你的总表，那么我给你提供几个方案，建立登陆系统，只有你有权限查看更改总表，或者利用公文包进行网络共享，在一个就算分开工作簿也没必要用VBA，直接外联工作簿就行，非常简单，首先，你需要建立一个新的工作簿可以命名为一年级，打开这个新建立的，点击A1单元格输入“=”，然后打开你的总表，点击A1这样，一年级的A1就等于总表A1了，拖拉全部都是了，用查找替换功能将公式变成半绝对引用，设置密码加锁，然后再一年级工作簿建立一个一年级工作表，建立查找公式组，这样，就完成了一年级的建立，当然，公式变种方式非常非常多，大概就这个思路，但你想在打开状态提示更新信息到时需要VBA，例如你可以写一个重新计算所有公式的一个VBA代码，然后再在工作簿添加关闭自动保存代码就行了，只要你关闭了他就自动保存了，再打开会提示你要不要更新，点击更新就更新，不点击就会保留状态，点击按钮或者再打开就会得到更新提示或更新
总结：换一种思路，一样很方便，建议用VBA实现一些既简单又恶心的功能，例如保存了，例如重新计算公式了（虽然EXCEL自带计算按钮）
总结：换一种思路，一样很方便，建议用VBA实现一些既简单又恶心的功能，例如保存了，例如重新计算公式了（虽然EXCEL自带计算按钮）
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-10-25
附件下载不了哦。sheet1为什么没有G列呢？
