【Excel VBA】批量新建并重命名工作表

一、需求

根据sheet1所列名称，添加并重命名新的工作表。

二、实现

1.按照从前往后的顺序

Sub cre_ren_sheets()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

2.按照从后往前的顺序

Sub cre_ren_sheets()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

三、注意事项

1.代码中的索引号和新建sheet默认命名不一定一致，代码按照顺序，工作簿只是名称。

2.工作表的命名要求

【Excel VBA】批量新建并重命名工作表相关推荐

学习笔记（1):EXCEL VBA编程进阶-2.6 工作表与工作簿结合应用（拆分工作表到工作簿）...
立即学习:https://edu.csdn.net/course/play/2005/31134?utm_source=blogtoedu ws.add.saveas thisworkbook.pat ...
navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...
在之前的一篇文章中,分享过用数据透视表的方法批量新建工作表. https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com 本次将用VBA的方式快 ...
excel批量重命名工作表
注:本次批量命名工作表是从已建有的工作表里面对其重命名,并不是新建工作表并批量命名,后者有很多人已经提供各种帮助,在此介绍前者假设现有n个工作表如果一个一个对其重命名,实数太过麻烦此时你可以点击 ...
Excel对隐藏的多个工作表一键批量命名的操作
今天小编要分享的是,Excel对隐藏的多个工作表一键批量命名的操作 (方方格子插件) 1.先看动图演示吧 2.我们的目的是将隐藏的阿拉伯数字的班级表名替换为汉字的表格,如图选中的数据 3.那我 ...
Excel批量以工作表指定位置单元格命名工作表
如下图工作簿中含有多个工作表,现在想要以每个工作表A1单元格作为工作表名称. 选中A1单元格点击下图选项(Excel插件,百度即可了解详细的下载安装方法,本文这里不作详细叙述) 点击[工 ...
vba工作表重命名_使用带有条件的VBA代码重命名工作表列表
vba工作表重命名 Renaming of worksheets can be done manually, but it will look like a massive task if there ...
Excel表格无法重命名工作表
问题描述: Excel表格无法重命名工作表原因分析: Excel表受保护,无法修改详细步骤: step1:审阅>保护工作簿 step2:输入密码 step3:即可正常修改工作表 step4: ...
Excel批量对所有的工作表设置保护的操作
好了一个工作簿中既有隐藏的表格,又有显示的表格,现在小编要通过Excel批量对所有的工作表设置保护的操作 (方方格子插件) 1.先看动图演示吧 2.好了直接选择方方格子按钮 3.选择其中的工作表操作 ...
Excel如何新建指定名称工作表
今天跟大家分享一下Excel如何新建指定名称工作表 1.我们想要在工作簿内创建1月到6月六张工作表 2.首先我们在任意单元格录入1月到6月,然后选中单元格区域.如下图 3.然后点击下图选项(Excel ...

【Excel VBA】批量新建并重命名工作表

一、需求

二、实现

1.按照从前往后的顺序

2.按照从后往前的顺序

三、注意事项

1.代码中的索引号和新建sheet默认命名不一定一致，代码按照顺序，工作簿只是名称。

2.工作表的命名要求

【Excel VBA】批量新建并重命名工作表相关推荐

最新文章

热门文章