作者:乔山办公网日期:
返回目录:excel表格制作
既然本题中着重提出“快速”百,对于手动的慢速更改就不度再赘述,
最快速的方法唯问VBA,可将需要更改的名字按照顺序写在一列答单元格里专,下述代码以sheet1的A列为例。
Sub tst()
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Sheet1.Cells(i, 1)
Next
End Sub
友情提醒:运行VBA请务必开启属宏。
http://jingyan.baidu.com/article/6fb756ec8c6703241858fbba.html
方法有两种zhidao:
把EXCEL文件另存为网页文件。
双击打开网页文件,查找源代码中的工作表内名,替换为新的工作表名,保存。用EXCEL打开这个被更改过的网页文件,工作表名已经被批量更改,另存回EXCEL文件即可。
通过宏命令。容代码如下:
Sub rename()
Dim i As Integer
i = 1
For Each sht In ActiveWorkbook.Sheets
sht.Name = i
i = i + 1
Next sht
End Sub
复制以下vb代码到vb编辑器中:
Sub mname()
'批量修改多7a686964616fe78988e69d83332个excel内指定的工作表的表名
Dim filename As String, twb As Workbook '定义变量
Application.ScreenUpdating = False '关闭屏幕更新
Application.DisplayAlerts = False '不显示需要确定删除的警告信息
filename = Dir(ThisWorkbook.Path & "\五座神山\" & "*.xlsx")
'获得五座神山文件下的所有工作表的名字
Do While filename <> "" '若工作簿名字不为空,执行循环体;
fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径;
Set twb = Workbooks.Open(fn) '打开五座神山文件下的工作簿;
twb.Worksheets(1).Name = "神山小百科" '修改第一个工作表的表名为“神山小百科”
twb.Close True '保存并关闭工作簿
filename = Dir '继续下一个工作簿
Loop
Application.DisplayAlerts = True '恢复提示警告信息
Application.DisplayAlerts = True '开启提示
End Sub
备注:可以变更的代码:
根据你表格的情况和位置,可以改动一下语句
更改五座神山,获得你工作簿的名称。
filename = Dir(ThisWorkbook.Path & "\五座神山" & "\*.xlsx")
更改五座神山,获得你工作簿的路径。
fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径;
worksheets(1),即需要修改的表格,这里是第一个工作表;
可以根据你的模版和需要加入的位置更改为其他数字。
name等号后面是需要改变的名称
twb.Worksheets(1).name="神山小百科"