数据复制、汇总

于 2022-08-31 14:55:06 发布
阅读量141 收藏
点赞数
分类专栏： VBA 文章标签： 开发语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/l_iu_xing/article/details/126623804
版权

背景：将文件夹中给定excel文件的目标单元格内容，复制到指定excel文件中，并且对其中第二列单元格（单位名称）进行规范命名。 编码目的：省去每一次复制、粘贴数据时间，提高学习强国平台管理效率。

Option Explicit
Sub copy()
    Dim temp_Workbook, Sum_Workbook, File_sum, File_Dir, myfile
    '定义待复制单元格行列号
    Dim sum_row, sum_column, i, j As Long
    sum_row = 4
    sum_column = 2
            
    '打开汇总表格
    File_sum = "D:\2022年\8月\学习强国\9月\学习强国2022年 月 日学习情况.xls"
    Set Sum_Workbook = GetObject(File_sum)
    
    myfile = ""
    '搜寻工作薄所在路径下的给定xls文件
    File_Dir = ThisWorkbook.Path
    myfile = Dir(File_Dir & "\*数据情况*.xlsx*")
    
    Do While myfile <> ""   '若不为空，遍历开始
        If myfile Like "*数据情况*" Then
            '打开工作薄、表格-----
            Set temp_Workbook = GetObject(File_Dir & "\" & myfile)
            Debug.Print "------" & myfile & "复制处理开始："
            '复制单元格数据
            
            For i = 4 To temp_Workbook.Worksheets("Sheet1").UsedRange.Rows.Count
                For j = 2 To temp_Workbook.Worksheets("Sheet1").UsedRange.Columns.Count
                    
                    Sum_Workbook.Worksheets("全区").Cells(sum_row, sum_column) = temp_Workbook.Worksheets("Sheet1").Cells(i, j)
                    Debug.Print temp_Workbook.Worksheets("Sheet1").Cells(i, j)
                    sum_column = sum_column + 1
                Next
                    
                    sum_column = 2
                    sum_row = sum_row + 1
            Next

        End If
        myfile = Dir()  '读入下一个文件
    Loop
    Debug.Print "复制完成"
    
    For i = 4 To Sum_Workbook.Worksheets("全区").UsedRange.Rows.Count
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*医疗*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区医保局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*工商*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区工商联"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*融媒*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区融媒体中心"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*宣传部*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区委宣传部"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*检察院*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区检察院"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*执法*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区综合执法局"
        End If
        
          If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*应急*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区应急局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*文化*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区文广旅游局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*公安*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "市公安局船山区分局"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*经科*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区经科局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*人大*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区人大"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*纪委监委*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区纪委监委"
        End If
        
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*军人*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区退役军人局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*国有*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区国资局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*妇女*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区妇联"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*生态*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "船山生态环境局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*组织*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区委组织部"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*司法*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区司法局"
        End If
        
        
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*党校*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区委党校"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*总工*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区总工会"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*卫生*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区卫生健康局"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*乡村*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区乡村振兴局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*审计*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区审计局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*团区委*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "团区委"
        End If
        '------------------------------------------------------------------------
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*残联*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区残联"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*统计*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区统计局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*政法委*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区委政法委"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*市场*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区市场监管局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*统战*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区委统战部"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*农民*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区农民工服务中心"
        End If
         '------------------------------------------------------------------------
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*科协*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区科协"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*政府办*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区政府办"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*税务*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区税务局"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*观音湖*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "观音湖文旅园区"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*编办*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区委编办"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*教育*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区教育和体育局"
        End If
        '------------------------------------------------------------------------
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*法院*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区法院"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*高新区*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "船山园区"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*龙凤*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "龙凤镇"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*住建*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区住建局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*河沙*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "河沙镇"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*永兴*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "永兴镇"
        End If
        '------------------------------------------------------------------------
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*自然*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区自然资源和规划局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*人社*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区人力资源社会保障局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*老池*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "老池镇"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*行政*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区行政审批局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*财政*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区财政局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*育才*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "育才路街道"
        End If
         '------------------------------------------------------------------------
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*仁里*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "仁里镇"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*镇江*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "镇江寺街道"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*永河园*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "现代农业产业园"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*民政*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区民政局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*水利*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区水利局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*交通*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区交通运输局"
        End If
         '------------------------------------------------------------------------
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*档案*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区档案馆"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*农业*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区农业农村局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*唐家*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "唐家乡"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*委办*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区委办"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*介福*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "介福路街道"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*凯旋*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "凯旋路街道"
        End If
'------------------------------------------------------------------------
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*发改*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区发改局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*桂花镇*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "桂花镇"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*政协*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区政协"
        End If
         If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*信访*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "区信访局"
        End If
        If Sum_Workbook.Worksheets("全区").Cells(i, 2) Like "*南津路*" Then
            Sum_Workbook.Worksheets("全区").Cells(i, 2) = "南津路街道"
        End If
        
    Next

End Sub
l_iu_xing
关注
专栏目录
PowerBI中导出数据方法汇总
PowerBI木小桼
06-25 1万+
虽然BI的目的是将人从做数中解脱出来，可终逃不过业务人员需要将数据导出到Excel然后自己做数据的命运，所以用户最常见的一个也是最刚需的一个问题就是怎么导出数据。今天就汇总下可以导出PowerBI报表中数据的几种方法。首先需要确保这个功能是否关闭，如果勾选了隐藏视觉对象标头，在本地打开pbi文件时不会有任何影响，但是在server端阅读报表时点击图表右上角不会再出现标头。选中想要导出数据的图表，右上角图表标头—更多选项—导出数据，这种方法有数据限制，具体可阅读官方文档，从 Power BI 可视化效果导出数
数据工程师面试常见题目汇总
小小博客爱分享
07-22 5825
1、为什么UNIONALL比UNION快？ 答：因为在使用UNION的时候，需要删除重复的记录，但是使用UNION ALL的时候不用删除。所以如果在知道需要UNION的查询不可能出现重复数据的时候，一定要使用UNIONALL。 2、什么是唯一索引? 答：唯一索引可以确保索引列不包含重复的值。在多列唯一索引的情况下，该索引可以确保索引列中每个值组合都是唯一的。聚集索引和非聚集索引都可以是唯一的。因此，只要列中的数据是唯一的，就可以在同一个表上创建一个唯一的聚集索引和多个...
Excel从另一个Excel文件中用户自定义区域(UsedRange)拷贝数据和行高、列宽
红泥屋
12-09 5465
实现环境：Visual Studio 2010, Office 2010, VSTO 4.0, .NET Framework 4.0 using System; using System.Collections.Generic; using System.Linq; using System.Text; using Microsoft.Office.Tools.Ribbon; using E
mysql 复制表中的数据_MySQL中快速复制数据表方法汇总
weixin_32921457的博客
02-27 634
本文将着重介绍两个MySQL命令的组合，它将以原有数据表为基础，创建相同结构和数据的新数据表。这可以帮助你在开发过程中快速的复制表格作为测试数据，而不必冒险直接操作正在运行 的数据表。示例如下：将 production 数据库中的 mytbl 表快速复制为 mytbl_new,2个命令如下：CREATE TABLE mytbl_new LIKE production.mytbl;INSERT my...
pandas 数据处理汇总
我是小bā吖的博客
07-29 5343
使用python-pandas处理excel数据时，常用命令汇总
linux mysql 复制数据库命令_MySQL中快速复制数据表方法汇总
weixin_39926104的博客
01-19 848
本文将着重介绍两个MySQL命令的组合，它将以原有数据表为基础，创建相同结构和数据的新数据表。这可以帮助你在开发过程中快速的复制表格作为测试数据，而不必冒险直接操作正在运行 的数据表。示例如下：将 production 数据库中的 mytbl 表快速复制为 mytbl_new,2个命令如下：CREATE TABLE mytbl_new LIKE production.mytbl;INSERT my...
数据结构知识点总结
热门推荐
qq_45228323的博客
03-22 4万+
一，数据结构的一般概念 数据：所有能被输入到计算机并被处理的符号的集合 数据元素：数据的基本单位 数据项：构成数据的不可分割的最小单位，一个数据元素有若干个数据项组成。 ......
PostgreSQL数据表复制
str999_cn的专栏
05-11 1776
PostgreSQL数据表太大的话，会影响读写效率。将一个很大的数据表进行拆分，将数据分散到较小的若干个数据表中，分别用多台计算机进行并行处理，之后再将处理结果进行汇总，是一个高效的解决方案。数据表的拆分方法如下： CREATE TABLE table_1 AS SELECT * FROM table WHEREuid >=1 AND uid<=5000000; CREATE T...
mysql 快速复制_MySQL中快速复制数据表方法汇总
weixin_34788662的博客
02-01 755
本文将着重介绍两个MySQL命令的组合，它将以原有数据表为基础，创建相同结构和数据的新数据表。这可以帮助你在开发过程中快速的复制表格作为测试数据，而不必冒险直接操作正在运行 的数据表。示例如下：将 production 数据库中的 mytbl 表快速复制为 mytbl_new,2个命令如下：CREATE TABLE mytbl_new LIKE production.mytbl;INSERT my...
excel：高级筛选总表数据，复制到分工作表
runadrun的博客
03-17 1362
1.在分工作表点菜单“数据”－》“筛选”—》“高级筛选”； 2.在弹出的对话框中，选中“将筛选结果复制到其他位置”； 3.“列表区域”用鼠标选择A至F列，即“总表!A:A:A:F”； 4.“条件区域”用鼠标选择需要满足的条件单元格，比如：选中分工作表中的，列属性+2020年1月12日这两个列单元格； 5.“复制到”用鼠标选择分工作表中的几个列属性。 如果有多个分工作表需要填充，可以录制宏，全选分工...
分布式数据库数据复制技术.pdf
08-08
分布式数据库数据复制技术是指在分布式数据库系统中，数据在多个物理位置上的副本同步更新的过程。该技术是实现分布式数据库性能提升和高可用性的重要手段。在本篇文献中，作者许伟涛详细探讨了分布式数据库数据复制...
数学建模数据集数据集网站汇总
最新发布
04-14
一般而言，访问者需要复制链接到浏览器或者百度网盘的APP中，获取分享者的授权后，便可以下载对应的数据集文件。 综合上述分析，我们可以进一步探讨数学建模数据集网站的汇总对数学建模工作的影响： 首先，一个...
分布式数据库数据复制技术研究.pdf
08-10
4. 数据汇总与性能改善：数据复制技术可以对数据进行汇总，并进一步提高数据读取性能。 5. 数据分发与冲突降低：通过数据复制，可以将数据更贴近个人或业务单位，降低多用户在数据更新和查询过程中出现的冲突。 6....
python3学习笔记–python中的数据类型汇总。
12-20
在Python 3中，了解和熟练掌握数据类型是学习编程的基础。本文主要涵盖了Python中的四种基本数据类型：数值型、字符串、列表和字典。这些数据类型构成了Python编程的基石，用于存储和处理各种信息。 一、数值型...
VBA 关键字匹配查找
l_iu_xing的博客
04-24 9447
Option Explicit Sub search() '完成对表格单元格中关键字的匹配查找 'Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~" '变量声明 Dim column_num, row_num, File_sum, Sum_Workbook, search_file, _ temp_Workbook, sheet_num, key_word...
利用VBA筛选重复数据
l_iu_xing的博客
06-17 6265
目标：在重复数据中按照一定规则提取、组合。 Sub match() Dim i, j, z, n, flag, A, B, C Set A = Worksheets("Sheet1").UsedRange Set B = Worksheets("Sheet2").UsedRange Set C = Worksheets("Sheet3").UsedRang...
不同表格查找重复数据VBA
l_iu_xing的博客
12-25 2647
分析两个表格中对应列的重复情况。 Sub Match_Dec() '两个表格，表格中的某一列为对应列，查找这两列中的重复记录和差异记录。 Dim ar As Long, br As Long, i As Integer, j As Integer, num As Integer 'ar/br为行数，i为外层循环数控制，j为内层循环数控制 Dim A...
月日年格式调整
l_iu_xing的博客
08-20 867
1948-1-21 1983-02-7 1988-7-1 Sub re_format() Dim i, j, a, B, year, month, day, flag_a, flag_b, temp Set a = Worksheets("Sheet1").UsedRange Set B = Worksheets("Sheet2").UsedRange ...
多个EXCEL文件中给定的单元格值复制、汇总
l_iu_xing的博客
04-12 687
背景：将多个EXCEL文件中给定的单元格值复制、汇总。不同于以往将一个工作薄中多个表格的复制、汇总，因此，要注意以下几点： 获取给定路径下的文件名及其文件个数； 打开excel文件的函数调用； Option Explicit Sub copy() Dim i, temp_Workbook, Sum_Workbook, File_sum, File_Dir, myfile '定...
vba复制多个excel数据复制汇总到另一个excel
08-01
当我们需要从多个Excel文件中复制数据并将其汇总到另一个Excel文件时，可以使用VBA来完成这个任务。 首先，我们需要打开源Excel文件和目标Excel文件。可以使用Workbooks.Open方法打开源文件，使用Workbooks.Add方法...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值