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

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

    excel利用VBA批量修改工作表名称

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

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

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

    excel利用VBA批量修改工作表名称

   二、修改原工作表名称

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

    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键或单击工具栏中的“运行”按钮执行代码。

    excel利用VBA批量修改工作表名称

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

版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/855.html

发表评论

评论列表(0人评论 , 62人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯