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

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

举报该问题

第1个回答 2020-05-20

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

相似回答

如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后再整行复制到...答：给你一个工作表事件代码，你可以参考使用:Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False On Error Resume Next Dim a As String， b As String， x As Integer， y As Integer Dim rng As Range y = Sheets(3).[a65536].End(3).Row If Target <>...

如何将Excel表中编辑—查找后的多项内容复制到新建的表格上答：用万能的vba可以实现。举例说明。有一牛奶站，根据送奶的记录数据做成每天根据每个客户的送奶履历表。代码如下：Sub 送奶履历表()Const mYbook = "送奶履历表"Dim MPATH As String Dim I, J As Integer Dim K1, K2 As Integer 'K1记录报表的行号，K2记录报表的列号 MPATH = ActiveWorkbook.Path...

如何用VBA判断符合条件的数据复制粘贴到相应工作表?答：可以使用VBA中的If语句和For Each循环来实现。首先，在VBA中定义符合条件的数据，可以使用类似下面的代码：Dim targetSheet As Worksheet Dim sourceSheet As Worksheet Dim lastRow As Long Dim i As Long Set sourceSheet = Worksheets("Sheet1") ' 指定源数据所在工作表 Set targetSheet = Worksheet...

【excel+vba】如何查找某个表格里的数据并且将相关内容复制到新的表格...答：用一些查找函数是可以实现的，如：vlookup()、match（）+indirect（）组合、index（）、offset（）、、VBA代码可以先录制一个，就是先到汇总表，输入标题和学校名（分位于一列两行），然后开始录制，激活汇总表（就是点击打开汇总表），然后用筛选-高级筛选，筛选出对应数据，然后复制到查询表相应位置，...

[Excel+VBA]如何查找某个表格里的数据并将相关数据复制到另一个表中...答：同时按CTRL SHFIT 回车键出现结果，下拉公式第3列同理 VBA的要依次循环包含了编号或挖方的数据或设置步长 复制到 sheet1表 Sub 编号()Dim i, n n = 2 For i = 1 To Sheets("三角网原始数据").Range("a65536").End(xlUp).Row Step 6 n = n + 1 Cells(n, "a") = ...

请教如何利用VBA实现将一个工作表复制到另一个工作簿中答：结论：VBA编程是一种强大的工具，可以轻松实现工作表在Excel工作簿之间的复制。以下是一个简单的步骤说明：VBA在Excel中扮演了关键角色，特别是在工作表的移动操作中。首先，打开"开发工具"选项，选择"VisualBasic"来启用宏功能。在VBA编辑器中，编写以下代码来创建一个名为"复制表"的宏：SubCopySheet()...

大家正在搜

excel宏代码实现筛选 VBA筛选出不重复的值 vba如何选中筛选后的第二行 vba复制筛选后可见单元格 excel vba筛选后复制 vba根据条件筛选并复制筛选代码根据列筛选自己代码查找筛选代码