网站建设管理工作情况的通报,网站开发分前台后台,深圳 建设银行国际互联网站,电商运营入门基础知识1#xff0c;在已有工作簿中#xff0c;在最后位置新增工作表#xff08;sheet#xff09; 2#xff0c;将要改的sheet名称在新建工作表中第一列按顺序填充 3#xff0c;在键盘上按住AltF11#xff0c;打开VBA窗口 4#xff0c;依次点击工具栏中的【插入】——【模块】…1在已有工作簿中在最后位置新增工作表sheet 2将要改的sheet名称在新建工作表中第一列按顺序填充 3在键盘上按住AltF11打开VBA窗口 4依次点击工具栏中的【插入】——【模块】 5在模块窗口中输入以下代码
Sub 按A列数据修改表名称()On Error Resume Next 忽略错误继续执行VBA代码避免出现错误消息Application.Calculation xlCalculationAutomatic 手动重算Dim i%For i 1 To Sheets.CountSheets(i).Name Cells(i, 1).TextNextOn Error GoTo 0 恢复正常的错误提示Application.Calculation xlCalculationAutomatic 自动重算
End Sub6然后点击菜单栏中的【运行】——【运行子过程/用户窗体】 7代码运行成功后就可以看到Excel表的sheet名称已经修改完成
