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

Excel拆分脚本

news 来源：原创 2025/6/27 15:43:43

Excel拆分

工作表按行拆分为工作薄

工作表按行拆分为工作薄

打开要拆分的Excel文件，使用==快捷键（Alt+F11）==打开脚本界面，选择要拆分的sheet，打开Module，在Module中输入脚本代码，然后运行脚本
在这里插入图片描述

Sub 工作表按行拆分为工作薄()Dim tm As DateDim fso As ObjectDim ws As WorksheetDim wb As WorkbookDim newWb As WorkbookDim savePath As StringDim wbPath As StringDim wbName As StringDim saveFile As StringDim titleRow As LongDim numRows As LongDim maxRow As LongDim sheetCount As LongDim i As LongDim lastRowCopied As Long' 初始化tm = NowApplication.Visible = FalseApplication.DisplayAlerts = FalseSet fso = CreateObject("Scripting.FileSystemObject")' 参数设置titleRow = 1numRows = 50000Set ws = ThisWorkbook.ActiveSheetwbPath = ThisWorkbook.PathwbName = ThisWorkbook.NamesavePath = wbPath & "\split"' 创建保存路径文件夹（如果不存在）If Not fso.FolderExists(savePath) Thenfso.CreateFolder savePathEnd If' 计算最大行数和拆分后的工作表数量maxRow = ws.UsedRange.Rows.CountsheetCount = WorksheetFunction.RoundUp((maxRow - titleRow) / numRows, 0)' 循环拆分并保存工作簿On Error GoTo ErrorHandlerFor i = 1 To sheetCount' 创建新工作簿Set newWb = Workbooks.AddWith newWb.Sheets(1)' 复制表头ws.Rows("1:" & titleRow).Copy Destination:=.Rows("1:" & titleRow)' 复制数据lastRowCopied = numRows * (i - 1) + titleRow + numRowsIf lastRowCopied > maxRow Then lastRowCopied = maxRowws.Rows(numRows * (i - 1) + titleRow + 1 & ":" & lastRowCopied).Copy Destination:=.Rows(titleRow + 1)' 复制列宽（可选）.Columns("A:Z").AutoFit ' 或者指定需要的列End With' 保存新工作簿saveFile = savePath & "\" & fso.GetBaseName(wbName) & "_split" & i & "." & fso.GetExtensionName(wbName)newWb.SaveAs Filename:=saveFilenewWb.Close FalseSet newWb = Nothing ' 释放新工作簿对象Next i' 清理和恢复设置Set fso = NothingApplication.Visible = TrueApplication.DisplayAlerts = TrueDebug.Print "工作表已拆分完成，累计用时" & Format(Now() - tm, "hh:mm:ss")Exit SubErrorHandler:MsgBox "错误 " & Err.Number & ": " & Err.Description, vbCritical' 清理和恢复设置（错误处理中的清理）If Not newWb Is Nothing Then newWb.Close FalseSet fso = NothingApplication.Visible = TrueApplication.DisplayAlerts = True
End Sub

Excel拆分脚本

Excel拆分工作表按行拆分为工作薄工作表按行拆分为工作薄打开要拆分的Excel文件，使用快捷键（AltF11）打开脚本界面，选择要拆分的sheet，打开Module，在Module中输入脚本代码，然后运行脚本 Su…...

编程日记 2025/6/27 15:43:43

深入解析MySQL事务隔离级别与锁机制在银行账户业务中的应用

一、引言在金融行业，尤其是银行账户业务中，数据的一致性和安全性至关重要。MySQL作为一种广泛使用的数据库，其事务隔离级别和锁机制在保证数据一致性方面发挥着重要作用。本文将针对银行账户查询与转账业务，探讨如何运用事务锁来…...

编程日记 2025/5/31 14:41:10

Linux 设备树

学习设备树之前你需要知道什么？ 因为设备树描述了整个芯片和开发板等所有硬件信息内容，所以他的信息量是非常庞大的，RK的linux的设备树算下来大概就有九千多行，大家不要被这个数字给吓到，这些内容都是原厂工程师写的&a…...

编程日记 2025/6/24 22:48:25

Ollama管理本地开源大模型，用Open WebUI访问Ollama接口

现在开源大模型一个接一个的，而且各个都说自己的性能非常厉害，但是对于我们这些使用者，用起来就比较尴尬了。因为一个模型一个调用的方式，先得下载模型，下完模型，写加载代码，麻烦得很。对于程序的规范来说，只要东西一多，我们就需要一个集中管理的平台，如管理python…...

编程日记 2025/6/22 6:29:47

面向对象进阶：多态

黑马程序员Java个人笔记 BV17F411T7Ao p129~132 目录多态多态调用成员的特点调用成员变量调用成员方法理解多态的优势解耦合多态的弊端解决方案：强制类型转换 instanceof jdk14新特性，将判断和强转放一起总结多态多态调…...

编程日记 2025/6/23 15:46:22

设置IMX6ULL开发板的网卡IP的两种方法(临时生效和永久有效两种方法)

设置开发板网卡的IP，有两种方法。方法一：临时生效第一种方式是临时设置，只有本次有效，重启后又要重新设，命令为： ifconfig eth0 192.168.5.9设置成功后可以使用ifconfig命令来查看已设置的 IP 地址。 …...

编程日记 2025/6/26 15:41:42

Navicat for MySQL 查主键、表字段类型、索引

针对Navicat 版本11 ，不同版本查询方式可能不同 1、主键查询 （重点找DDL！！！） 方法（1） ：右键 - 对象信息 - 选择要查的表 - DDL - PRIMARY KEY 方法（2&…...

编程日记 2025/6/26 15:19:35

二十七、Tomcat专题总结与拓展

文章目录一、Tomcat设计思路总结1、Tomcat整体架构2、Tomcat设计思路二、Tomcat源码设计精髓三、拓展：SpringBoot整合Tomcat源码分析四、拓展：SpringBoot整合Undertow实战1、Undertow概述2、SpringBoot集成Undertow2.1、引入依赖2.2、application.prop…...

编程日记 2025/6/26 4:13:15

WPF+MVVM案例实战与特效（三十九）- 深度剖析一个弧形进度条的实现

文章目录 1、使用 Path 结合 ArcSegment 绘制圆弧1、属性解读2、静态圆弧3、动态圆弧4、运行效果5、圆弧两端点的形状2、总结1、使用 Path 结合 ArcSegment 绘制圆弧 1、属性解读 Path 是 WPF 中的一个标记元素，用于绘制复杂的几何路径形状，而 ArcSegment 用于描述 Path 中…...

编程日记 2025/6/26 2:55:51

Spring Boot 应用 “Connection is closed” 及 MySQL 空闲超时断开连接解决方案

在使用 Spring Boot MySQL HikariCP 的组合时，可能会在生产或测试环境中遭遇类似如下异常信息： org.springframework.jdbc.UncategorizedSQLException: PreparedStatementCallback; uncategorized SQLException for SQL [SELECT ...]; SQL state [nu…...

编程日记 2025/6/20 20:10:38

【数据库】Oracle

文章目录 1. 批量更新 1. 批量更新这种方式将所有更新操作放在一个事务中执行，减少了与数据库的交互次数，从而可能提高性能。此外，事务处理还可以确保数据的一致性和完整性。begin; update mytable set STATE 102,STATE_DATE now() …...

编程日记 2025/6/24 7:35:41

链式栈的实现及其应用

目录一、链式栈结构模型二、链式栈的实现 2.1创建 2.2压栈 2.3出栈 2.4判断栈是否为空 2.5查看栈顶 2.6释放栈三、应用链式栈实际上就是基于链表，压栈和弹栈可分别看作头插和头删，链表尾部就是栈底，头指针就是栈顶指针一、链式…...

编程日记 2025/5/30 2:59:40

结构化的Prompt

资源库： AI 提示词-WayToAGI精选高效的AI提示词库，助力创作者和开发者解锁人工智能的潜力。通过我们的提示词和策略，优化您的AI工具使用效率，激发创意思维，提升产出质量。https://www.waytoagi.com/prompts?tag6 结构…...

编程日记 2025/6/22 1:39:01

ChatGPT突然全球宕机，OpenAI致歉：并查明原因，正积极修复

ChatGPT突然全球宕机，OpenAI致歉：并查明原因，正积极修复在 2024 年 12 月 12 日上午的北京时间时段内，ChatGPT突发全球宕机，OpenAI致歉：已查明原因，正积极修复官方证实了其备受瞩目的聊天机器…...

编程日记 2025/6/23 1:32:24

【实验16】基于双向LSTM模型完成文本分类任务

目录 1 数据集处理- IMDB 电影评论数据集 1.1 认识数据集 1.2 数据加载 1.3 构造Dataset类 1.4 封装DataLoader 1.4.1 collate_fn函数 1.4.2 封装dataloader 2 模型构建 2.1 汇聚层算子 2.2 模型汇总 3 模型训练 4 模型评价 5 模型预测 6 完整代码 7 拓展实验 …...

编程日记 2025/6/26 5:09:59

【中工开发者】鸿蒙商城app

这学期我学习了鸿蒙，想用鸿蒙做一个鸿蒙商城app，来展示一下。项目环境搭建： 1.开发环境：DevEco Studio2.开发语言：ArkTS3.运行环境：Harmony NEXT base1 软件要求： DevEco Studio 5.0.0 Rel…...

编程日记 2025/6/27 5:54:16

SpringBoot 整合 MongoDB 实现文档存储

一、MongoDB 简介 MongoDB（来自于英文单词“Humongous”，中文含义为“庞大”）是可以应用于各种规模的企业、各个行业以及各类应用程序的开源数据库。基于分布式文件存储的数据库。由C语言编写。旨在为 WEB 应用提供可扩展的高性能数据存储解…...

编程日记 2025/6/23 1:43:47

鲲鹏麒麟安装ElasticSearch7.8.0

因项目需求需要在鲲鹏麒麟服务器上安装ElasticSearch7.8.0，考虑Docker方式安装比较简单，因此使用Docker方式安装环境信息操作系统：Kylin Linux Advanced Server release V10 (Tercel) Docker：18.09.0 [rootserver ~]# uname …...

编程日记 2025/6/27 9:02:31

NDN命名数据网络和域名的区别

NDN（Named Data Networking）网络的概念 NDN是一种新型的网络架构，也被称为命名数据网络。与传统的以IP地址为中心的网络架构不同，NDN是以数据（内容）本身命名为中心的网络架构。在传统网络中，我们通过IP地址来寻找主机设备，然后获取该设备上存储的内容。而在NDN网络中，…...

编程日记 2025/6/26 23:11:20

PyTorch基本使用-自动微分模块

学习目的：掌握自动微分模块的使用训练神经网络时，最常用的算法就是反向传播。在该算法中，参数（模型权重）会根据损失函数关于对应参数的梯度进行调整。为了计算这些梯度，PyTorch 内置了名为 torch.autogra…...

编程日记 2025/6/26 1:09:34

关于linux kernel softlockup 的探究

1. 基本解释 softlockup：发生在某个 CPU 长时间占用资源，但 CPU 仍然可以响应中断和调度器。软死锁通常不会导致系统崩溃，但可能会使系统响应变慢. 2. 驱动模拟softlockup 以下为代码实现 #include <linux/module.h> #include <…...

编程日记 2025/6/25 8:02:07

MySQL 时区参数 time_zone 详解

文章目录前言1. 时区参数影响2. 如何设置3. 字段类型选择前言 MySQL 时区参数 time_zone 有什么用？修改它有什么影响？如何设置该参数，本篇文章会详细介绍。 1. 时区参数影响 time_zone 参数影响着 MySQL 系统函数还有字段的 DEFAULT CUR…...

编程日记 2025/6/22 7:00:34

【计算机网络层】数据链路层：局域网和交换机

🧸安清h：个人主页 🎥个人专栏：【计算机网络】【Mybatis篇】 🚦作者简介：一个有趣爱睡觉的intp，期待和更多人分享自己所学知识的真诚大学生。目录 🎯局域网 🚦局域网…...

编程日记 2025/6/22 7:00:58

WebSocket、Socket、TCP 与 HTTP：深入探讨与对比

随着互联网技术的快速发展，现代Web应用对于实时通信的需求越来越高。传统的HTTP协议由于其无状态和请求-响应模式的限制，在实现高效、低延迟的实时通信方面存在一定的局限性。为了解决这一问题，WebSocket协议应运而生，它提供了一种…...

编程日记 2025/6/27 2:16:13

【开源免费】基于SpringBoot+Vue.JS在线办公系统（JAVA毕业设计）

本文项目编号 T 001 ，文末自助获取源码 \color{red}{T001，文末自助获取源码} T001，文末自助获取源码目录一、系统介绍二、演示录屏三、启动教程四、功能截图五、文案资料5.1 选题背景5.2 国内外研究现状5.3 可行性分析六、核心代码6.1 查…...

编程日记 2025/6/25 12:20:19

Vue指令

创建项目： vue init webpack 项目名称 element-ui npm i element-ui -saxios npm i axios1.1.3 -S vuex npm i vuex3.6.2 -S vuex持久化 npm i -S vuex-persistedstate4.1.0代理模版 proxyTable: {/api: {target: http://localhost:8081/,changeOrigin: true,pathRe…...

编程日记 2025/6/22 23:15:18

经典文献阅读之--ATI-CTLO(基于自适应时间间隔的连续时间Lidar-Only里程计)

0. 简介激光雷达扫描中的运动失真，由机器人的激烈运动和环境地形特征引起，显著影响了3D激光雷达里程计的定位和制图性能。现有的失真校正解决方案在计算复杂性和准确性之间难以平衡。《ATI-CTLO: Adaptive Temporal Interval-based Continuous-Time Li…...

编程日记 2025/6/25 5:22:26

【GitHub分享】you-get项目

【GitHub分享】you-get 一、介绍二、安装教程三、使用教程四、配置ffmpeg五，卸载如果大家想要更具体地操作可去开源网站查看手册，这里只是一些简单介绍，但是也够用一般，有什么问题，也可以留言。一、介绍 you-get是一…...

编程日记 2025/6/25 7:43:57

右玉200MW光伏电站项目微气象、安全警卫、视频监控系统

一、项目名称山西右玉200MW光伏电站项目微气象、安全警卫、视频监控系统二、项目背景： 山西右玉光伏发电项目位于右玉县境内，总装机容量为200MW，即太阳能电池阵列共由200个1MW多晶硅电池阵列子方阵组成，每个子方阵包含太阳能…...

编程日记 2025/6/26 4:41:27

box 提取

box 提取 import json import os import shutilimport cv2 import numpy as np import pypinyinclass Aaa():passdef pinyin(word):s for i in pypinyin.pinyin(word, stylepypinyin.NORMAL):s .join(i)return s if __name__ __main__:selfAaa()base_dirrE:\data\dao\20241…...

编程日记 2025/6/25 16:33:28

Excel拆分

工作表按行拆分为工作薄

相关文章：