excel根据数据批量创建并重命名工作表

需求

根据一列数据,批量创建并重命名工作表

在这里插入图片描述

做法

1. 右键该sheet,选择查看代码

在这里插入图片描述

2. 输入VBA代码

正向创建

Sub create_sheets_by_col()Dim num%'  定义为integer*num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))'  num是非空单元格数For i = 1 To numSheets.Add after:=ActiveSheetSheets(i + 1).SelectSheets(i + 1).Name = Sheet1.Cells(i, 1)Next i
End Sub

在这里插入图片描述

解释
Sub create_sheets_by_col()
  • Sub 关键字用于声明一个子程序或宏。create_sheets_by_col 是子程序的名字,这个名字表明了宏的目的,即通过某一列的数据来创建新的工作表。
    Dim num%
  • Dim 关键字用于声明一个变量。num% 声明了一个名为 num 的整型变量(Integer)。在VBA中,变量类型是通过在变量名后面加上一个类型声明字符来指定的,% 表示整型。
    num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
  • 这行代码使用Excel的 WorksheetFunction 对象的 CountA 方法来计算 Sheet1 工作表中A列的非空单元格数量。Application.WorksheetFunction 是访问Excel工作表函数的方式,CountA 函数计算指定范围内的非空单元格数。Sheet1.Range("A:A") 指定了 Sheet1 工作表的A列。
    For i = 1 To num
  • 这行代码开始了一个 For 循环。循环变量 i 从1开始,一直增加到 num 的值。循环将重复执行下面的代码块,每次循环 i 的值都会增加1。
        Sheets.Add after:=ActiveSheet
  • 在循环体内,Sheets.Add after:=ActiveSheet 是一个方法调用,它会在当前活动的工作表之后添加一个新的工作表。ActiveSheet 是一个内置属性,代表当前选中的工作表。
        Sheets(i + 1).Select
  • Sheets(i + 1).Select 选择并激活新添加的工作表。因为新工作表是在当前活动工作表之后添加的,所以它的索引位置是 i + 1
        Sheets(i + 1).Name = Sheet1.Cells(i, 1)
  • 这行代码将新工作表的名称设置为 Sheet1 工作表中第 i 行第1列的单元格内容。这意味着每个新创建的工作表将以其对应的A列单元格内容命名。
    Next i
  • Next i 语句标志着 For 循环的结束。每次循环结束时,i 的值都会增加1,直到它等于 num,此时循环停止。
End Sub
  • End Sub 语句表示子程序的结束。这是宏定义的最后一行代码,它告诉VBA宏编辑器子程序的代码到此结束。

总体来说,这段代码的目的是遍历 Sheet1 工作表的A列,对于每个非空单元格,都会创建一个新的工作表,并将新工作表的名称设置为该单元格的值。这样,如果A列有5个非空单元格,那么就会创建5个新工作表,每个工作表的名称对应于A列中相应行的单元格内容。

效果

在这里插入图片描述

反向创建

Sub create_sheets_by_col_rev()Dim num%num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))For i = 1 To numSheets.AddSheets(1).Name = Sheet1.Cells(i, 1)' Sheet1=Sheets(i+1), sheet1随着新工作表的建立被往后挤,序列数随之增大Next i
End Sub

在这里插入图片描述

解释
Sub create_sheets_by_col_rev()
  • Sub 关键字用于声明一个子程序或宏。create_sheets_by_col_rev 是子程序的名字,这个名字表明了宏的目的是通过某一列的数据来创建新的工作表,并且可能有一些修改或优化(由“rev”后缀暗示)。
    Dim num%
  • Dim 关键字用于声明一个变量。num% 声明了一个名为 num 的整型变量(Integer)。
    num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
  • 这行代码使用Excel的 WorksheetFunction 对象的 CountA 方法来计算 Sheet1 工作表中A列的非空单元格数量。Application.WorksheetFunction 是访问Excel工作表函数的方式,CountA 函数计算指定范围内的非空单元格数。Sheet1.Range("A:A") 指定了 Sheet1 工作表的A列。
    For i = 1 To num
  • 这行代码开始了一个 For 循环。循环变量 i 从1开始,一直增加到 num 的值。循环将重复执行下面的代码块,每次循环 i 的值都会增加1。
        Sheets.Add
  • 在循环体内,Sheets.Add 是一个方法调用,它会在工作簿的末尾添加一个新的工作表。
        Sheets(1).Name = Sheet1.Cells(i, 1)
  • 这行代码将新添加的工作表(现在是工作簿中的第一个工作表,索引为1)的名称设置为 Sheet1 工作表中第 i 行第1列的单元格内容。这意味着每个新创建的工作表将以其对应的A列单元格内容命名。
    Next i
  • Next i 语句标志着 For 循环的结束。每次循环结束时,i 的值都会增加1,直到它等于 num,此时循环停止。
End Sub
  • End Sub 语句表示子程序的结束。这是宏定义的最后一行代码,它告诉VBA宏编辑器子程序的代码到此结束。

总体来说,这段代码的目的是遍历 Sheet1 工作表的A列,对于每个非空单元格,都会在工作簿的末尾创建一个新的工作表,并将新工作表的名称设置为该单元格的值。每次添加新工作表后,原有的工作表索引位置都会增加,因此新工作表始终是工作簿中的第一个工作表,其索引为1。

效果

在这里插入图片描述

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/pingmian/46367.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

木舟0基础学习Java的第十八天(IO流,字节流,字符流,缓冲)

IO流正常使用流程:1.抛异常 2.资源读写 3.关闭资源(从后往前关) 字节流:(拷贝推荐使用) 开发中一般不会抛出异常 用try{}catch(){} 也不推荐字节流读中文 FileInputStream:读 FileInputStream fsnew FileInputStream("e:/b.txt");//11111…

设计模式使用场景实现示例及优缺点(行为型模式——策略模式)

策略模式(Strategy Pattern) 策略模式(Strategy Pattern)是一种行为设计模式,它能够在运行时选择最适合的算法或行为,同时能够将算法族封装成独立的类,并使它们之间可以相互替换。这种模式是通…

类形断言和和类型推导的区别是什么?

类型断言(Type Assertion)和类型推导(Type Inference)在TypeScript中的区别 如下: 定义: 类型断言:是程序员明确指定一个值的类型,即允许变量从一种类型更改为另一种类型。它不会进行…

接着探索Linux的世界 -- 基本指令(文件查看、时间相关、打包压缩等等)

话不多说,直接进入主题 一、cat指令 -- 查看目标文件的内容 语法:cat [选项][文件] 功能: 查看目标文件的内容 -b 对非空输出行编号 -n 对输出的所有行编号 -s 不输出多行空行 1、查看目标文件的内容 2、 -b 对非空输出行编号 3、-n 对…

24/07/11数据结构(6.1215)双链表实现-栈实现

像写单链表的一些功能接口一样,先来写一些双链表的接口熟悉一下它的主体框架: #include<stdio.h> #include<stdlib.h> typedef int LDataType; //双向带头循环链表的节点 typedef struct ListNode{ LDataType _data; //指向下一个节点的起始位置 str…

Kylin系列(九)与 Hadoop 集成:Kylin 如何在 Hadoop 生态中运作

目录 1. Kylin概述 2. Hadoop概述 3. Kylin与Hadoop集成的架构 4. 实现Kylin与Hadoop的集成 4.1 安装和配置Hadoop 4.2 安装和配置Hive 4.3 安装和配置Kylin 4.4 构建多维数据立方体 4.5 实现实时数据处理 5. Kylin与Hadoop集成的优势 6. 总结 在大数据时代&#xf…

项目部署笔记

1、安全组需开放&#xff08;如果不开放配置nginx也访问不到&#xff09; 2、域名解析配置IP(子域名也需配置IP&#xff0c;IP地址可以不同) 3、如果出现图片获其他的文件找不到的情况请仔细检查一下路径是否正确 4、服务器nginx配置SSL证书后启动报错&#xff1a; nginx: […

巧用 VScode 网页版 IDE 搭建个人笔记知识库!

[ 知识是人生的灯塔&#xff0c;只有不断学习&#xff0c;才能照亮前行的道路 ] 巧用 VScode 网页版 IDE 搭建个人笔记知识库! 描述&#xff1a;最近自己在腾讯云轻量云服务器中部署了一个使用在线 VScode 搭建部署的个人Markdown在线笔记&#xff0c;考虑到在线 VScode 支持终…

Python 数据清洗与预处理

Python 数据清洗与预处理 在数据科学和机器学习的项目中&#xff0c;数据清洗与预处理是至关重要的一步。无论数据来源如何&#xff0c;原始数据通常都是不完整、不一致、含有噪声的&#xff0c;甚至可能包含错误。为了从这些原始数据中提取有价值的信息&#xff0c;并进行有效…

Day05-filebeat常用的输出组件,logstash的输入输出组件及date,grok,geoip过滤插件实战案例

Day05-filebeat常用的输出组件&#xff0c;logstash的输入输出组件及date&#xff0c;grok&#xff0c;geoip过滤插件实战案例 1、使用filebeat采集docker日志2、filebeat的input类型之filestream实战案例2.1 课堂练习案例2.2 将数据写入到本地文件案例2.3 写入数据到ES集群2.4…

Windows Server 2012 R2 Update 出现错误 80072EFE

解决方案一 错误代码 80072EFE 表示与服务器的连接异常终止。请确保没有防火墙规则或代理阻止 Microsoft 下载 URL。 您还可以尝试以下操作&#xff1a; 单击“开始”&#xff0c;然后单击“运行”。 在“打开”框中键入 cmd 在命令提示符下键入“net stop wuauserv”&#…

《昇思25天学习打卡营第04天|qingyun201003》

日期 心得 从中认识到什么是数据转换&#xff0c;如何进行数据转换&#xff1b;对于数据转换应该如何理解。同时对于数据转换的代码有了深层次的理解。对于数据增强、转换、归一化有了明确的认知。 昇思MindSpore 基础入门学习 数据转换 (AI 代码解析) 数据变换 Transforms …

使用Python和MediaPipe实现手势控制音量(Win/Mac)

1. 依赖库介绍 OpenCV OpenCV&#xff08;Open Source Computer Vision Library&#xff09;是一个开源的计算机视觉和机器学习软件库。它包含了数百个计算机视觉算法。 MediaPipe MediaPipe是一个跨平台的机器学习解决方案库&#xff0c;可以用于实时人类姿势估计、手势识…

EXSI 实用指南 2024 -编译环境 Ubuntu 安装篇(二)

1. 引言 在当今的虚拟化领域&#xff0c;VMware ESXi 是备受推崇的虚拟化平台&#xff0c;广泛应用于企业和个人用户中。它以卓越的性能、稳定的运行环境和丰富的功能&#xff0c;为用户提供了高效的硬件资源管理和简化的 IT 基础设施维护。然而&#xff0c;如何在不同操作系统…

LeetCode Day8|● 344.反转字符串(原地) ● 541. 反转字符串II(i可以大步跨越) ● 卡码网:54.替换数字(ACM模式多熟悉熟悉)

字符串part01 day8-1 ● 344.反转字符串整体思路代码实现总结 day8-2 ● 541. 反转字符串II整体思路代码实现总结 day8-3 ● 卡码网&#xff1a;54.替换数字题目解题思路代码实现总结 day8-1 ● 344.反转字符串 整体思路 字符串和数组的思路差不多 原地操作 代码实现 class…

非常好的新版网盘系统,是一款PHP网盘与外链分享程序,支持文件预览

这是一款PHP网盘与外链分享程序&#xff0c;支持所有格式文件的上传&#xff0c; 可以生成文件外链、图片外链、音乐视频外链&#xff0c;生成外链同时自动生成相应的UBB代码和HTML代码&#xff0c; 还可支持文本、图片、音乐、视频在线预览&#xff0c;这不仅仅是一个网盘&a…

算法思想总结:字符串

一、最长公共前缀 . - 力扣&#xff08;LeetCode&#xff09; 思路1&#xff1a;两两比较 时间复杂度mn 实现findcomon返回两两比较后的公共前缀 class Solution { public:string longestCommonPrefix(vector<string>& strs) {//两两比较 string retstrs[0];size…

MySQL里的累计求和

在MySQL中&#xff0c;你可以使用SUM()函数来进行累计求和。如果你想要对一个列进行累计求和&#xff0c;可以使用OVER()子句与ORDER BY子句结合&#xff0c;进行窗口函数的操作。 以下是一个简单的例子&#xff0c;假设我们有一个名为sales的表&#xff0c;它有两个列&#x…

Python接口自动化测试框架(工具篇)-- 接口测试工具RobotFramework

文章目录 一、前言二、[robotframework](https://robotframework.org/)为什么要选择使用RF框架环境搭建测试用例编写我的第一个接口测试用例小结一、前言 这篇文章是后面临时加的戏码,原本计划是将一个个能做接口测试的工具,全都给梳理一遍,但是题主有疑问,光一篇文章能让…