VBA如何批量提取、替换、变更工作表名?

Sub 提取工作表名称()

'批量提取sheet名称

Dim sht As Worksheet

Dim i As Integer

i= 2

For Each sht In Worksheets

'循环每一个sheet

Sheet1.Cells(i, 1) = sht.Name

'将工作表名放入sheet1的第一列

i = i 1

'每循环一次,i 1,工作表名下移一行

Next

End Sub

Sub 工作表重命名()

'批量提取sheet名称

Dim sht As Worksheet

Dim i As Integer

i= 2

For Each sht In Worksheets

'循环每一个sheet

sht.Name = Sheet1.Cells(i, 2)

'将sheet1的第2列的名称赋值给对应的sheet

i = i 1

'每循环一次,i 1,下移一行

Next

End Sub

Sub 替换工作表名特定字符()

'批量替换sheet名中的特定字符,将S替换为M

'也可以根据需要替换为空或者其他

Dim i As Long

For i = 1 To Sheets.Count

'Sheets.Count计算该工作簿中Sheet的数量

Sheets(i).Name = Replace(Sheets(i).Name,"S", "M")

'适用replace替换字符

Next i

End Sub

赞 (0)

相关推荐

  • Excel如何快速批量提取多个工作表Sheet的名称

    工作中,我们有时会需要 将多个工作表Sheet的名称提取出来,制作成一个目录. 如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度. 因此,作者在这里分享一个 ...

  • excel怎么使用vba创建一个预设格式的工作表?

    excel中使用vba创建一个预设格式的工作表 1.首先我们打开一个工作样表作为例子. 2.我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码: Sub Cre ...

  • excel2003如何批量修改多个工作表的行高和列宽

    excel2003默认工作表的行高是14.25(19像素),列宽是8.38(72像素): 行高与列宽是可以手动扩大或缩小的,如果工作薄中的工作表不多时,可以一个工作表一个工作表的去调整: 但如果工作薄 ...

  • 怎么快速提取一个excel文件中的所有工作表名？

    在日常办公中经常需要提取一个excel工作薄中所有工作表的名称以方便后期的数据统计,下面我就跟大家分享几个快速提取所有工作表名称的方法. 方法/步骤1 01 首先,我分享第一个方法,这个方法可是非常简 ...

  • 怎样批量取消隐藏的工作表（excel如何取消隐藏的工作表）

    怎样批量取消隐藏的工作表（excel如何取消隐藏的工作表）

    今天跟大家分享一下Excel如何批量隐藏多个工作表1.如下图工作簿中含有多个工作表,现在我们想要将1模以外的工作表全部隐藏起来.2.首先我们点击下图选项(Excel工具箱,百度即可了解详细的下载安装信 ...

  • excel中怎么将工作表名创建为目录超链接?

    今天要和大家分享的是:如何将excel中的工作表名创建为目录超链接? 1.首先打开数据表格,我们发现有5个工作表,如下图所示: 2.接着我们定位到sheet1中,选择方方格子插件,如下图所示: 3.选 ...

  • 如何修改工作表名

    Excel新建的工作簿默认创建了3个工作表,Sheet1.Sheet2.Sheet3.为了给工作表更好的归类,就需要修改Excel的工作表名.本介绍如果修改工作表名字 操作方法 01 启动Excel ...

  • excel如何批量取消隐藏的工作表

    大家都知道,在平时使用过程中批量隐藏工作表的方法是使用键盘CTRL和鼠标选取需要隐藏的工作表标签,让后再使用鼠标右键隐藏功能来达到隐藏工作表的目的,但是要取消,excel就没有这样的功能了,大家就要一 ...

  • 如何批量提取文件名到EXCEL表（批量复制文件夹名字到excel）

    如何批量提取文件名到EXCEL表（批量复制文件夹名字到excel）

    如何快速提取大量文件名到excel?作为一名上班族,每天要处理大量的文件,如果没有快速的处理的方法,效率非常的低,那么可能经常需要加班来完成工作任务,应该没有哪个小伙伴喜欢加班吧.例如,我们经常需要将 ...

  • excel中，怎样快速批量合并多个工作表？

    本文所分享的内容是:在EXCEL工作薄,有多个工作表,如何批量一次性的把这多个工作表合并在一起. 希望通过本文可以帮到一些朋友. 操作方法 01 工作表少,可以复制再粘贴:但,如果工作表数量很多,如果 ...