zoukankan      html  css  js  c++  java
  • VBA-批量修改工作表名称

    适用于一张表中有大量的sheet,这些sheet需要按照一定的规律命名

    1、代码

      在表格中按下Alt+F11打开宏命令编辑区。插入如下的代码,然后运行。

    Sub EditSheetName()
        For i = 2 To Worksheets.Count
            Worksheets(i).Name = "信息系统情况(系统" & (i-1) & ""
        Next
    End Sub

      如果出现:1004,改名称已被占用,则使用 on error resume next

      原因是:需要改的和旧的前面名称一致,会提示此错误。建议先整体改其他的名称,避免一致。再改成自己想要的名称。

    2、忽略错误

    Sub EditSheetName()
       For i = 2 To Worksheets.Count 
       On Error Resume Next
         Worksheets(i).Name
    = "信息系统情况(系统" & (i-1)& ""
    Next End Sub

    3、笔记:

    sub .... end sub  定义的一个方法
    方法名是EditSheetNeme EXCEL中索引从1开始,worksheets(
    1)代表第一个工作表。
    worksheets(
    "sheetname")代表工作表名为sheetname的工作表。 On Error Resume Next 忽略错误继续下一步
  • 相关阅读:
    进程(二)
    操作系统简介-计算机历史、进程(一)
    MemCahce For Java
    fiddler:工具栏介绍
    fiddler相关
    HTTP:Cookie
    在eclipse中开发servlet流程
    servlet 开发入门&生命周期
    HTTP响应
    HTTP:请求头信息
  • 原文地址:https://www.cnblogs.com/smartmsl/p/10971804.html
Copyright © 2011-2022 走看看