VBA如何批量提取、替换、变更工作表名 ,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