当前位置： 首页 > news >正文

VBA excel 表格将多行拆分成多个表格或 文件 或者合并 多个表格

news 文章来源：https://blog.csdn.net/estrusKing/article/details/139468190 2025/1/13 15:39:47

excel 表格 拆分 合并

  • 拆分
    • 工作表按行拆分为工作表
    • 工作表按行拆分为工作薄
  • 合并
  • 操作步骤

拆分

为了将Excel中的数万行数据拆分成多个个每个固定行数的独立工作表，并且保留每个工作表的表头，你可以使用以下VBA脚本。这个脚本会复制表头到每个新的工作表，并将后续的数据行按固定行行的间隔进行拆分

工作表按行拆分为工作表

Sub 工作表按行拆分为工作表()'当前工作表（worksheet）按固定行数拆分为多个工作表，保存在当前工作簿（workbook）tm = Now()Set ws = Application.ActiveSheet  '当前工作表即为待拆分工作表
'--------------------参数填写：num_row，数字；title_row表头行数，数字，第1行为1向下递增title_row = 1  '表头行数，每个拆分后的sheet都保留num_row = 20000  '拆分数据行数，按多少行数据进行拆分，不能完全拆分的，多余行数单独max_row = ActiveSheet.UsedRange.Rows.Count'拆分sheet数量，向上取整sheet_count = WorksheetFunction.RoundUp((max_row - title_row) / num_row, 0)For i = 1 To sheet_count:Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "拆分表" & i  '最后添加新sheet，并命名With ActiveSheetws.Rows(1 & ":" & title_row).Copy  '本行复制表头，下行复制数据.Range("A1").PasteSpecial Paste:=xlPasteAll.Range("A1").PasteSpecial Paste:=xlPasteColumnWidthsws.Rows(num_row * (i - 1) + title_row + 1 & ":" & (num_row * i) + title_row).Copy .Range("A" & title_row + 1)End With'Exit For  '强制退出for循环，单次测试使用NextDebug.Print ("拆分完成，累计用时" & Format(Now() - tm, "hh:mm:ss"))  '耗时
End Sub

工作表按行拆分为工作薄

Sub 工作表按行拆分为工作薄()'当前工作表（worksheet）按固定行数拆分保存为多个工作簿（workbook），文件单独保存tm = Now()Application.Visible = False  '后台运行，不显示界面Application.DisplayAlerts = False  '不显示警告信息Set fso = CreateObject("Scripting.FileSystemObject")
'--------------------参数填写：num_row，数字；title_row表头行数，数字，第1行为1向下递增title_row = 1  '表头行数，每个拆分后的sheet都保留num_row = 20000  '拆分数据行数，按多少行数据进行拆分，不能完全拆分的，多余行数单独Set ws = Application.ActiveSheet  '当前工作表即为待拆分工作表wb_path = Application.ActiveWorkbook.Path  '当前工作簿文件路径wb_name = Application.ActiveWorkbook.Name  '当前工作簿文件名和扩展名save_path = wb_path + "\拆分表"  '保存拆分后的表格保存路径max_row = ActiveSheet.UsedRange.Rows.count'拆分sheet数量，向上取整sheet_count = WorksheetFunction.RoundUp((max_row - title_row) / num_row, 0)If fso.FolderExists(save_path) ThenDebug.Print ("拆分文件保存路径已存在：" & save_path)Elsefso.CreateFolder (save_path)Debug.Print ("拆分文件保存路径已创建：" & save_path)End IfFor i = 1 To sheet_count:Workbooks.AddWith ActiveSheetws.Rows(1 & ":" & title_row).Copy  '本行复制表头，下行复制数据.Range("A1").PasteSpecial Paste:=xlPasteAll.Range("A1").PasteSpecial Paste:=xlPasteColumnWidthsws.Rows(num_row * (i - 1) + title_row + 1 & ":" & (num_row * i) + title_row).Copy .Range("A" & title_row + 1)End With'保存文件全名（文件路径、文件名、扩展名）save_file = save_path & "\" & fso.GetBaseName(wb_name) & "_拆分表" & i & "." & fso.GetExtensionName(wb_name)ActiveWorkbook.SaveAs filename:=save_fileActiveWorkbook.Close (False)'Exit For  '强制退出for循环，单次测试使用NextSet fso = Nothing  '释放内存Application.Visible = TrueApplication.DisplayAlerts = TrueDebug.Print ("工作表已拆分完成，累计用时" & Format(Now() - tm, "hh:mm:ss"))  '耗时
End Sub

合并

首先需要把多个需要合并excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel文件

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

操作步骤

  1. 打开Excel并按下Alt + F11打开VBA编辑器。

  2. 在VBA编辑器中，右键点击你的工作簿名称，然后选择插入 -> 模块，以创建一个新的模块。

    在这里插入图片描述

  3. 在新模块的代码窗口中，复制并粘贴以下VBA代码：

  4. 确保你的数据在Sheet1上（或者将代码中的"Sheet1"替换为你的实际工作表名称）。

  5. 运行这个VBA脚本（你可以通过按F5键，或者点击工具栏上的“运行”按钮 -> 运行子/用户窗体）。
    在这里插入图片描述

    1. 分拆：脚本将会创建一个或多个新工作表（命名为"Part 1"、"Part 2"等），并将数据从源工作表复制到这些新工作表中，每个工作表包含2万行（以2万行为例 可进行调整）（或最后一组可能少于2万行，如果总行数不是2万的整数倍）。

      合并：所有的合并到新的表格，

      按需粘入代码即可

相关文章：

VBA excel 表格将多行拆分成多个表格或 文件 或者合并 多个表格

excel 表格 拆分 合并 拆分工作表按行拆分为工作表工作表按行拆分为工作薄 合并操作步骤 拆分 为了将Excel中的数万行数据拆分成多个个每个固定行数的独立工作表&#xff0c;并且保留每个工作表的表头&#xff0c;你可以使用以下VBA脚本。这个脚本会复制表头到每个新的工作表&…...

编程日记 2024/6/12 3:07:02

利用Redis的队列模式实现消息的发送和订阅，适合分布式场景，Java实现代码

在Redis中&#xff0c;通常使用发布/订阅模式&#xff08;Pub/Sub&#xff09;来进行消息的实时通信。然而&#xff0c;标准的Redis发布/订阅模式并不直接支持确保一条消息只被一台机器消费。在这种模式下&#xff0c;所有订阅了特定频道的客户端都会收到发布的消息。 但是&…...

编程日记 2024/6/12 3:02:56

软件下载安装【汇总】

软件下载安装【汇总】 前言版权推荐软件安装【汇总】最后 前言 2024-5-12 21:38:34 以下内容源自《【汇总】》 仅供学习交流使用 版权 禁止其他平台发布时删除以下此话 本文首次发布于CSDN平台 作者是CSDN日星月云 博客主页是https://jsss-1.blog.csdn.net 禁止其他平台发布…...

编程日记 2024/6/12 3:01:55

重定向文件访问（Redirect file access）

重定向文件访问 重定向文件访问是指通过修改文件系统的路径&#xff0c;使对某个文件或目录的访问请求被转到另一个文件或目录。这在系统管理、测试和开发中非常有用&#xff0c;因为它允许您在不修改应用程序或服务配置的情况下&#xff0c;改变文件的实际存储位置。 proot …...

编程日记 2024/6/12 3:00:54

隐私计算（1）数据可信流通

目录 1. 数据可信流通体系 2. 信任的基石 3.数据流通中的不可信风险 可信链条的级联失效&#xff0c;以至于崩塌 4.数据内循环与外循环&#xff1a;传统数据安全的信任基础 4.1内循环 4.2外循环 5. 技术信任 6. 密态计算 7.技术信任 7.1可信数字身份 7.2 使用权跨域…...

编程日记 2024/6/12 2:59:52

果汁机锂电池充电，5V升压12.7V 升压恒压芯片SL1571B

在现代化的日常生活中&#xff0c;果汁机已经逐渐成为了许多家庭厨房的必备电器。随着科技的不断进步&#xff0c;果汁机的性能也在不断提升&#xff0c;其中锂电池的应用更是为果汁机带来了前所未有的便利。而5V升压12.7V升压恒压芯片SL1571B&#xff0c;作为果汁机锂电池充电…...

编程日记 2024/6/12 2:58:51

多个线程多个锁：如何确保线程安全和避免竞争条件

目录 前言 一、确定需要多个锁的场景 1.独立资源保护 2.部分依赖资源 二、避免死锁 三、锁粒度与并发性能 1. 粗粒度锁定 2.细粒度锁定 四、设计策略&#xff1a;减少资源依赖 1.资源分离 2.无锁设计 3.锁合并 五、Demo讲解 总结&#xff1a; 前言 当多个线程需要…...

编程日记 2024/6/12 2:57:50

Linux-笔记 设备树插件

目录 前言&#xff1a; 设备树插件的书写规范&#xff1a; 设备树插件的编译&#xff1a; 内核配置: 应用背景&#xff1a; 举例&#xff1a; 前言&#xff1a; 设备树插件&#xff08;Device Tree Blob Overlay&#xff0c;简称 DTBO&#xff09;是Linux内核和嵌入式系统…...

编程日记 2024/6/12 2:54:46

【排序算法】总结篇

✨✨这些 排序算法都是指的 需要进行比较的排序算法 ✨✨下面都是略微讲解一下思路&#xff0c;如果需要详细了解哪一个排序&#xff0c;点击&#x1f449;链接即可 ✨✨对于时间、空间复杂度、稳定性&#xff0c;希望你&#x1f9d1;‍&#x1f393;能够理解记忆&#x1f9d1;…...

编程日记 2024/6/12 2:53:45

鸿蒙开发文件管理：【@ohos.fileio (文件管理)】

文件管理 该模块提供文件存储管理能力&#xff0c;包括文件基本管理、文件目录管理、文件信息统计、文件流式读写等常用功能。 说明&#xff1a; 本模块首批接口从API version 6开始支持。后续版本的新增接口&#xff0c;采用上角标单独标记接口的起始版本。 导入模块 impor…...

编程日记 2024/6/12 2:51:43

硬件工程师学习规划

背景介绍 当前电子行业中&#xff0c;互联网因为中国人口基数大&#xff0c;得到很快的发展&#xff0c;一越成为世界第一梯队&#xff0c;互联网软件薪资要高于传统制造业硬件的薪资&#xff0c;从各大招聘软件上就能看到&#xff0c;那么为什么软件发展要好于硬件&#xff1…...

编程日记 2024/6/12 2:49:42

esp32 8行代码实现蓝牙音响

目录 硬件准备&#xff1a; 具体代码&#xff1a; 接线&#xff1a; 备注&#xff1a; 八行代码实现简易版蓝牙音响&#xff0c;亲测有效&#xff1a; esp32 DIY蓝牙音响_哔哩哔哩_bilibili 硬件准备&#xff1a; ESP32-wroom、MAX98357音频放大器模块、4欧3瓦小喇叭、杜…...

编程日记 2024/6/12 2:48:41

注册用户如何防止缓存穿透？

注册用户如何防止缓存穿透&#xff1f; 先说明用户注册为什么会发送缓存穿透&#xff1a;用户注册时&#xff0c;需要验证用户名是否已存在&#xff0c;先查缓存&#xff0c;没有再查数据库&#xff0c;还没有才验证通过。高并发的情况下就可能有大量用户同时注册&#xff0c;…...

编程日记 2024/6/12 2:47:40

Presto基础知识

Presto缓存 引入Presto缓存之前 BackgroundHiveSplitLoader 使用底层的文件系统直接进行数据的读写&#xff1b; 引入Presto缓存机制之后&#xff0c;底层的文件系统被被CachingFileSystem 代理一层 CachingFileSystem 有两个子类&#xff0c;根据你选用的底层缓存引擎的不同…...

编程日记 2024/6/12 2:46:38

Ajax + Easy Excel 通过Blob实现导出excel

前端代码 <!DOCTYPE html> <html><head><meta charset"utf-8"><title></title><script src"./js/jquery-3.6.0.min.js"></script></head><body><div><button onclick"exportF…...

编程日记 2024/6/12 2:45:37

Qt+qss动态属性改变控件状态切换的样式

先说点基础的吧&#xff0c;qt的样式实现&#xff0c;常见的主要有三种方式&#xff0c;分别为&#xff1a; 1.ui界面中右键样式表直接添加 2.代码中对控件设置样式setStyleSheet 3.外部预设好qss文件&#xff0c;代码中加载后设置样式 实际工作开发中&#xff0c;我推荐使用优…...

编程日记 2024/6/12 2:44:36

纷享销客安全体系：安全运维运营

安全运维运营(Security Operations,SecOps)是指在信息安全管理中负责监控、检测、响应和恢复安全事件的一系列运营活动。它旨在保护组织的信息系统和数据免受安全威胁和攻击的损害。 通过有效的安全运维运营&#xff0c;组织可以及时发现和应对安全威胁&#xff0c;减少安全事…...

编程日记 2024/6/12 2:42:34

富瀚微FH8322 ISP图像调试—BLC校正

1、简单介绍 目录 1、简单介绍 2、调试方法 3、输出结果 富瀚微平台调试有一段时间了&#xff0c;一直没有总结&#xff0c;我们调试ISP的时候&#xff0c;首先一步时确定好sensor的黑电平值&#xff0c;黑电平如果不准&#xff0c;则会影响到后面的颜色及对比度相关模块。…...

编程日记 2024/6/12 2:41:33

什么是大型语言模型 ？

引言 在本文[1]中&#xff0c;我们将从高层次概述大型语言模型 (LLM) 的具体含义。 背景 2023年11月&#xff0c;我偶然间听闻了OpenAI的开发者大会&#xff0c;这个大会展示了人工智能领域的革命性进展&#xff0c;让我深深着迷。怀着对这一领域的浓厚兴趣&#xff0c;我加入了…...

编程日记 2024/6/12 2:39:30

RocketMq详解：二、SpringBoot集成RocketMq

在上一章中我们对Rocket的基础知识、特性以及四大核心组件进行了详细的介绍&#xff0c;本章带着大家一起去在项目中具体的进行应用&#xff0c;并设计将其作为一个工具包只提供消息的分发服务和业务模块进行解耦 在进行本章的学习之前&#xff0c;需要确保你的可以正常启动和…...

编程日记 2024/6/12 2:38:30

【源码】二开版微盘交易系统/贵金属交易平台/微交易系统

二开版微盘交易系统/贵金属交易平台/微交易系统 一套二开前端UI得贵金属微交易系统&#xff0c;前端产品后台可任意更换 此系统框架不是以往的至尊的框架&#xff0c;系统完美运行&#xff0c;K线采用nodejs方式运行 K线结算都正常&#xff0c;附带教程 资源来源:https://www.…...

编程日记 2024/6/12 2:37:28

React@16.x（26）useContext

目录 1&#xff0c;上下文的使用2&#xff0c;useContext 1&#xff0c;上下文的使用 之前的文章中介绍过 context上下文。 使用举例&#xff1a; import React, { useState } from "react";const ctx React.createContext();function Child() {return <ctx.C…...

编程日记 2024/6/12 2:35:26

Vue2学习（04）

目录 一、组件的三大组成部分 二、组件的样式冲突scoped 三、scoped原理 ​编辑 四、data是一个函数 五、组件通信 1.概念&#xff1a;是指组件与组件之间的数据传递&#xff0c;组件的数据是独立的&#xff0c;无法直接访问其他组件的数据&#xff0c;想用其他组件的数…...

编程日记 2024/6/12 2:31:22

Python中columns()函数

1. columns的概念 在数据分析和处理中，columns是指数据表中的列，也称为字段。每一列代表了特定类型的数据，在一个数据表中，每一行代表了一个数据实例，而每一列则代表了一个特定的特征或属性。 可以直接定义和更改列标题，也可以直接读取某列的数据，或者对某列进行运算。…...

编程日记 2024/6/12 2:30:21

Vue3 使用 vue-clipboard3 实现一键复制

安装依赖 npm install --save vue-clipboard3示例 <template><el-input v-model"data"></el-input><button click"touchCopy">复制链接</button> </template><script setup lang"ts"> // 导入插件 …...

编程日记 2024/6/12 2:28:18

人机环境生态系统智能的流动性

一般来说&#xff0c;流动性可以理解为事物在空间或时间上的转移、变化或运动。在人机环境生态系统中&#xff0c;流动性可以涉及以下几个方面&#xff1a; 信息流动&#xff1a;数据、消息、知识等在系统中的传递和交换。这可能包括传感器收集的数据传输到处理中心&#xff0c…...

编程日记 2024/6/12 2:27:16

实现开源可商用的 ChatPDF RAG：密集向量检索（R）+上下文学习（AG）

实现 ChatPDF & RAG&#xff1a;密集向量检索&#xff08;R&#xff09;上下文学习&#xff08;AG&#xff09; RAG 是啥&#xff1f;实现 ChatPDF怎么优化 RAG&#xff1f; RAG 是啥&#xff1f; RAG 是检索增强生成的缩写&#xff0c;是一种结合了信息检索技术与语言生成…...

编程日记 2024/6/12 2:26:15

对待谷歌百度等搜索引擎的正确方式

对待百度、谷歌等搜索引擎的方式是&#xff0c;你要站在搜索引擎之上&#xff0c;保持自己的独立思想和意见。 当谷歌宣布他们将会根据一个名为“Alphabet”的新控股公司来进行业务调整时&#xff0c;在科技界引起了一片恐慌之声。 永远不要说这是一个公司一直在做的事情。不…...

编程日记 2024/6/12 2:25:14

pikachu靶场通关全流程

目录 暴力破解&#xff1a; 1.基于表单的暴力破解&#xff1a; 2.验证码绕过(on server)&#xff1a; 3.验证码绕过(on client)&#xff1a; token防爆破&#xff1a; XSS&#xff1a; 1.反射型xss(get)&#xff1a; 2.反射性xss(post)&#xff1a; 3.存储型xss&#…...

编程日记 2024/6/12 2:24:12

实现k8s网络互通

前言 不管是docker还是k8s都会在物理机组件虚拟局域网&#xff0c;只不过是它们实现的目标不同。 docker&#xff1a;针对同一个物理机&#xff08;宿主机&#xff09; k8s&#xff1a;针对的是多台物理机&#xff08;宿主机&#xff09; Docker 虚拟局域网 K8S虚拟局域网 …...

编程日记 2024/6/12 2:23:11

广州空港经济区门户网站/西安seo建站

http://blog.tangcs.com/2008/02/25/asp-net-security/转载于:https://www.cnblogs.com/WarrenTang/archive/2008/02/25/1080892.html...

编程日记 2025/1/13 13:17:28

网站代码在哪里写/杭州网站制作排名

问题描述: 原因: 在apptool 2.0以后命令发生了变化,不能再使用 apktool d <apk_path> <outfile_path> 解决方法:解决方法: 使用命令行apktool d -f <apk_path> -o <outfile_path> 终极解决方法: 输入 apktool 指令,能看到你所安装版本支持的全部指令 转…...

编程日记 2025/1/13 12:42:48

多梦wordpress主题/长春网站制作系统

《信条》打造的光影奇观让观众眼前一亮&#xff0c;其展现出的时间逆行和顺行的人互相战斗的场面让人感到震撼和惊奇&#xff0c;然而这部电影却也令很多观众感觉想不通&#xff0c;觉得BUG太多。而深究这些BUG的原因&#xff0c;绝大多数都是由于电影中引入了“熵减”的概念&a…...

编程日记 2025/1/13 10:54:25

哪个网站做螺丝生意好/小红书推广价目表

总算是把卡方检验的思想看懂了 用来判断概率分布X与Y是否有关。 所以在文本特征选择中&#xff0c;有如下的计算公式&#xff1a; 转自Hackerzer的博客&#xff1a;http://blog.csdn.net/hackerzer/article/details/76713829...

编程日记 2025/1/13 10:26:58

学做海报的网站/百度网盘资源搜索引擎搜索

HTML里&#xff0c;比较基础的Tag主要用于标题&#xff0c;段落和分行。学习HTML最好的方法&#xff0c;就是跟着示例学。为了各位学习的方便&#xff0c;我们准备了一个简单的HTML编辑器&#xff0c;你可以在左边写HTML代码&#xff0c;然后点击上面的按钮&#xff0c;查看HTM…...

编程日记 2025/1/13 7:22:27

网站如何做访客统计/网络管理系统

python中使用多线程处理程序&#xff0c;会比一步步的处理节约很多时间&#xff0c;而且通过创建并继承Python的Thread类&#xff0c;重写run()方法&#xff0c;通过自定义的线程类来创建线程&#xff0c;本文介绍python多线程Thread类定义和如何自定义线程类的过程。一、Threa…...

编程日记 2025/1/13 6:56:10