Question

EXCEL中如何批量命名工作表

EXCEL中有批量给工作表命名的操作方式吗？将sheet1，sheet2...改成1,2...

Answer 1

有哇，用VBA咯

sub 批量命名()
i=1
for each sht in sheets
    sheets.name=i
    i=i+1
next
end sub

这代码简单吧

追问

必须用vb吗，我不会用这款软件，那些语言是在哪里输入的，这步操作简单吗

Answer 2

Sub
test()
Dim
i
As
Byte
For
i
=
1
To
ThisWorkbook.Sheets.Count
Sheets(i).Name
=
2
&
"ÔÂ"
&
i
&
"ÈÕ"
Next
i
End
Sub
把2改为你要的月份就可以了。也可以这样
Sub
test()
Dim
i,
m
As
Byte
m
=
InputBox("请输入月份",
"Hello")
For
i
=
1
To
ThisWorkbook.Sheets.Count
Sheets(i).Name
=
m
&
"月"
&
i
&
"日"
Next
i
End
Sub
每次会要求你输入一月份。

Answer 3

Private Sub CommandButton1_Click()
For I = 1 To Sheets.Count
If LCase(Left(Sheets(I).Name, 5)) = "sheet" Then Sheets(I).Name = Mid(Sheets(I).Name, 6)
Next
End Sub

追问

必须用vb吗，那些语言是在哪里输入的，我不会用这款软件，这步操作简单吗

追答

搜 一下 EXCEL VBA入门

Answer 4

仪表图

Answer 5