VBA Excel工作表重命名

Excel工作表重命名，你是否还在一个个的手动修改，学会VBA代码，快速批量重命名工作表。

https://mp.weixin.qq.com/s?__biz=MzkwMzY1OTIzOA==&mid=2247483703&idx=1&sn=42f7ee90c52c9f149a80a6d3bd0af0a8&chksm=c093aabef7e423a85ad193ffa00c77a6115676eac9ca8690076fe2a4f87923c3560347b5ed23&token=1893840549&lang=zh_CN#rd

1、从最简单的代码入手，先遍历工作薄中所有工作表，如查询到需改名工作表名称，重命名工作表。代码如下：

  Dim Sheets As Worksheet

   Application.DisplayAlerts = False  '防提示

   '遍历工作表

   For Each Sheets In Worksheets

     If Sheets.Name = "Sheet1" Then  '遍历同一工作薄中工作表，判断工作表有无“Sheet1”工作表。

       Sheets.Name = "你好" '指定工作表修改为指定名称

     End If

    Next

   Application.DisplayAlerts = True

2、思路再严谨，修改名称之前，先做两个判断，如将工作表“Sheet1”重命名为“Sheet3”,需判断工作表“Sheet1”是否存在，是否有名为 “Sheet3”的工作表。“Sheet1”工作表存在， “Sheet3”不存在，才能重命名成功，代码如下：

   Dim Sheets As Worksheet

   Dim SheetsName As String

   Dim i As Integer

   i = 0                '定义变量，判断是否有目标工作表名称