1、在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境，如下图所示：
2、在“代码窗口“中复制粘贴以下代码：Sub xyf() '定义一个工作表对拇峨镅贪象变量 Dim oSheet As Worksheet '遍历当前工作亏啮徭会簿中的每个工作表 For Each oSheet In Excel.Application.Worksheets '对每个工作表进行改名 oSheet.Name = VBA.Replace(oSheet.Name, "月", "季度") Next oSheetEnd Sub然后按下F5键运行代码既可以实现用VBA批量改名。如下图所示：
