用vba复制模板，并根据指定的列形成多个sheet重命名

需求:

目前有一个sheet,需要复制多份，而且sheet里的名字需要根据指定的列去生成，即，张三一个sheet,李四一个sheet。

实现方法如下：

'**********************************************
'*  删除表格，可以不用复制这段代码
'* param no:表示删除从第几页开始到最后一页的sheet(加入要保留前两页，no=3)
'**********************************************Sub delete()Dim nono = 3For i = Sheets.Count To no Step -1Sheets(i).deleteApplication.DisplayAlerts = False '无论删除多少个sheet只提醒一次是否要删除NextEnd Sub'**********************************************
'*  复制表格，要根据一个目录来
'* param copy_source_table:复制模板表的表名
'* param sheet_name_source_table_name: sheetName来源的表
'* param sheet_name_source_table_colum: sheetName来源的表中的名称所在的具体列
'**********************************************Sub CopyByContent()Dim num, name, sheet_name_source_table_name, sheet_name_source_table_colum, copy_source_tablecopy_source_table_name = "Sheet2"
sheet_name_source_table_name = "Sheet1"
sheet_name_source_table_colum = "A"
num = Sheets(sheet_name_source_table_name).UsedRange.Rows.Count '获取某个表格使用的函数
For i = 1 To numSheets(copy_source_table_name).Copy After:=Sheets(Sheets.Count)name = Sheets(sheet_name_source_table_name).Cells(i, sheet_name_source_table_colum).ValueActiveSheet.name = nameNextEnd Sub

vba宏结果界面如下：

生成的excel如下：

参考来源：

excel快速批量复制某个sheet(sheet命名来自某个sheet中某一列数据)_大海Git的博客-CSDN博客_excel 批量复制sheet

后来尝试了一下python方法，美中不足的是，只能生成自带的copy名称

附python实现代码：

from openpyxl import load_workbookworkbook = load_workbook(filename="test.xlsx")
sheet = workbook['test1']
for i in range(160):#复制160次Excelsheet_name="{0}#".format(i)target = workbook.copy_worksheet(sheet)
workbook.save(filename="测试_0912.xlsx")

生成的结果如下：

用vba复制模板，并根据指定的列形成多个sheet重命名相关推荐

Java使用poi加载Excel模板，将查询出来的数据封装到Excel中并进行指定某些列的合并操作
Java使用poi加载Excel模板,将查询出来的数据封装到Excel中并进行指定某些列的合并操作最近一周项目中需要读取数据库中的记录将记录封装到给定的模板中,指定业务列需要进行合并:下面将它进行整 ...
来自damon的zencart二次开发教程-3.2复制模板（仿站）操作教程
用zencart来复制别人的网站成本低,效率高.前面我发了一篇有关开发自己的zencat模板的文章(<来自damon的zencart二次开发教程-3.1开发自己的zencart模板>),里 ...
VBA小模板：一个奖励放回的普通抽奖用VBA怎么写？
前言: 1 为什么要写这些VBA小模板因为1这些是小的完整的解决某一问题的代码, 2是因为感觉以前每次都是临时遇到要解决才写,而每次写都没提高,缺少积累,总结和对比,确实需要反思总结后才可以提高, ...
bat复制文件到指定目录同名_scp复制文件时排除指定文件
请关注本头条号,每天坚持更新原创干货技术文章. 如需学习视频,请在微信搜索公众号"智传网优"直接开始自助视频学习 1. 前言本文主要讲解如何在scp复制文件时排除指定文件. 举例 ...
C#/VB.NET 复制Excel中的指定单元格区域
本文介绍C#及VB.NET程序代码来复制Excel中的指定单元格区域,包括复制单元格文本及单元格样式.复制时,可在工作簿中的同一个sheet工作表内复制,也可在不同工作簿的不同sheet工作表间复制. ...
linux scp 排除文件夹,scp复制文件时排除指定文件
1. 前言本文主要讲解如何在scp复制文件时排除指定文件. 举例: 我需要将所有*.c文件从名为hostA的电脑复制到hostB,包括所有目录.我使用以下scp命令,但不知道如何排除特定的文件(如* ...
总裁导航v2.5.1修复版秒收录网站模板源码指定定时收录导航站
总裁导航系统,一款多功能的php导航系统,不仅仅支持自助申请收录,并且还支持自助购买广告还有很多功能! 1.新增加前台用户自助购买广告功能 2.新增加自动审核功能 3.自动定时提交百度收录! 环境要 ...
java 根据excel模板格式导出指定格式的excel
2017年10月31日16:40:32 做个记录.方便下次查看. 参考:java实现赋值Excel模板并写入后导出 (￣▽￣)~* ExcelUtils @Component public class ...
plsql 复制表结构到指定表空间_数据库知识总结—(八)数据库amp;表的CRUD
一.创建表本节用到的表结构如下: customers表 vendors表 orderitems表一般有两种创建表的方法: 使用具有交互式创建和管理表的工具:或者直接用MySQL语句操纵. (1)表 ...

用vba复制模板，并根据指定的列形成多个sheet重命名

用vba复制模板，并根据指定的列形成多个sheet重命名相关推荐

最新文章

热门文章