1.批量更改表名
Sub 批量更改表名()
n = InputBox("输入表格个数")
For i = 1 To n
Sheets(i).Name = " 表" & i
Next i
End Sub
2.以数字批量重命名
Sub 以数字批量重命名()
Dim i As Integer
i = 1
For Each sht In ActiveWorkbook.Sheets
sht.Name = i
i = i + 1
Next sht
End Sub
a.以单元格内容批量重命名,但单元格内不能有相同的名称
Sub 以不同表格相同位置单元格内容批量重命名()
Dim i As Integer
i = 1
For Each sht In Worksheets
sht.Name = Sheets(i).Cells(1, 1)
i = i + 1
Next sht
End Sub
b. 以相同表格不同单元格内容批量重命名
Sub 以相同表格不同单元格内容批量重命名()
On Error Resume Next
Dim i As Integer
i = 1
For Each sht In Worksheets
sht.Name = Cells(i, 1)'活动工作表需要在要命名的表内
i = i + 1
Next sht
End Sub
4.删除当前工作簿中除活动工作表外的所有工作表(非原创，引用《Excel VBA其实很简单》）
'删除当前工作簿中除活动工作表外的所有工作表
Sub DelSht()
Dim sht As Worksheet '定义变量
Application.DisplayAlerts = False '不显示警告信息
For Each sht In Worksheets '遍历所有工作表
If sht.Name <> ActiveSheet.Name Then '判断sht代表的工作表是不是活动工作表
sht.Delete '删除sht代表的工作表
End If
Next
Application.DisplayAlerts = True '恢复警告信息
End Sub
