求EXCEL的VBA代码实现对筛选取的内容复制到新建EXCEL中

Question

如图所示： 标题行有”日期“ ”省区“ ”区域“ ”姓名“ ”申请金额 “”费用项目“ ”摘 要“ ”审批金额“ 8个字段。
要求： 根据"日期"和"省区"筛选出的记录复制到以"该省区"命名的新EXCEL文件中。比如，筛选出12/03/05和"陕西"省的所有记录,复制到以"陕西"命名的EXCEL文件中, 然后下一个省区重复相同的动作.
因为日期在不断增加，最有有一个对话框让输入筛选的日期。

Answer 1

选中所有数据，插入数据透视表，将省区拖到页区域，审批金额拖到数据项，其他拖到行区域。
然后用数据透视表的菜单中的分页显示，将透视表分成多个表。追问

是的，数据透视表可以根据页字段把数据分别复制到各个工作表。我想根据页字段复制到各个工作簿怎么办呢？

追答

1.如果在你原来的工作表上操作：
工作表上右键，选移动复制工作表，选新工作薄，勾选建立副本，工作表命名为省区名，筛选出非本省区的行删除，取消自动筛选，保存工作薄。
重复这样操作。
2.如果在分页的透视表上操作
工作表上右键，选移动复制工作表，选新工作薄，保存工作薄。
重复这样操作。