批量提取、替换、变更工作表名

源数据：

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