Sub 提取工作表名稱()

'批量提取sheet名稱

Dim sht As Worksheet

Dim i As Integer

i= 2

For Each sht In Worksheets

'循環(huán)每一個sheet

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

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

i = i 1

'每循環(huán)一次,i 1,工作表名下移一行

Next

End Sub

Sub 工作表重命名()

'批量提取sheet名稱

Dim sht As Worksheet

Dim i As Integer

i= 2

For Each sht In Worksheets

'循環(huán)每一個sheet

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

'將sheet1的第2列的名稱賦值給對應的sheet

i = i 1

'每循環(huán)一次,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