天干物燥小心火烛打更:怎么批量修改Excel工作表名?用VBA批量修改工作表名称

来源：百度文库编辑：偶看新闻时间：2024/04/27 21:18:05

怎么批量修改Excel工作表名?用VBA批量修改工作表名称

2012-02-08 13:53 作者:office教程网来源:www.officewhy.com 浏览: 198次我要评论 (0条) 字号:大中小

摘要:一、在原工作表名称后添加文字例如工作簿中仅包含12个用数字1-12命名的工作表，现在要将每个工作表名称修改为1月、2月、、12月，即在每个工作表名称后添加一个月字。 1.按快捷键Alt+F11，打开VBA编辑器，在右侧的代码窗口中输入下列代码： Sub RenameWorksh

一、在原工作表名称后添加文字

例如工作簿中仅包含12个用数字“1-12”命名的工作表，现在要将每个工作表名称修改为“1月”、“2月”、……、“12月”，即在每个工作表名称后添加一个“月”字。

1.按快捷键Alt+F11，打开VBA编辑器，在右侧的代码窗口中输入下列代码：

    Sub RenameWorksheets()
    For i = 1 To Worksheets.Count
      Worksheets(i).Name = Worksheets(i).Name & "月"
    Next
    End Sub

2.将光标定位在代码中间，按F5单击工具栏中的“运行”按钮执行代码即可。

二、修改原工作表名称

例如要将每个用数字命名的工作表名称改为“一月”、“二月”、……、“十二月”。

1.在工作表中输入修改后的工作表名称，例如在左侧第一个工作表的A列的A1:A12区域中输入“一月”至“十二月”。

2.在VBA编辑器的代码窗口中输入下列代码：

    Sub RenameWorksheets1()
    For i = 1 To Worksheets.Count
      Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value
    Next
    End Sub

3.将光标定位在上述代码中间，按F5键或单击工具栏中的“运行”按钮执行代码。

运行上述代码前需注意工作表的排列顺序要与A列中的名称一一对应，且工作簿中不要包含隐藏的工作表，因为工作表的索引号是从左向右排列的，Worksheets(1) 指工作簿中最左边的第一个工作表。

用VBA编程如何遍历EXCEL每一个工作表 vb怎么修改excel中的工作表 EXCEL中怎么批量修改超链接地址呢？ excel 里面格式刷怎么批量用怎么批量修改文件名？我想在excel中打开、保存、再关闭另一个工作薄，其vba代码怎么写 Excel 2003工作表如何修改密码? Excel VBA Excel VBA vba excel excel工作表名的问题高手指点一下：vba 读取 excel工作表时，为什么不能排序？ Excel中怎么批量插入？文员之类的工作用EXCEL会常用VBA这类功能吗？ VBA高手请进（怎样在打开的EXCEL工作表中用VBA读入另一个存在盘上的工作表的指定页面）？ WAV怎么批量修改mp3infp 怎么修改VBA中的按键连射？怎么批量修改数据库表中的某一个字段 excel中如何批量修改对不同单元格的引用如何在EXCEL控件属性中引用工作表名？我用VBA模拟器玩口袋妖怪银版怎么用修改器 excel问题，这段vba怎么不运行？批量修改 excel工作表间数据共享还有怎么用宏