第一种:利用Excel工作
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
现有单元格内容进行批量重命名。
例如:Excel工作表默认标签为sheet1,sheet2,sheet3,sheet4。如何快速重命名为1月销售表,2月销售表,3月销售表,4月销售表。
sheet1工作表A1:A4单元格内容是1月销售表,2月销售表,3月销售表,4月销售表。
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
:按下ALT+F11,打开VBE窗口,单击插入——模块,复制下面代码,并运行。Sub 按A列数据修改表名称()
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息Application.Calculation = xlCalculationManual '手动重算
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1).Text
Next
On Error GoTo 0 '恢复正常的错误提示
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub
第二种:直接批量重命名Excel工作表。
Sub 新工作表名()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Worksheets(i).Name = "报表" & i
Next i
Application.ScreenUpdating = True
End Sub