将工作表的名称重命名为单元格的值

　　通过快表软件合并导出的功能导出报表后，可以通过下面的VBA将工作表的名称重命名为模板中指定单元格的值。

1. Sub ReNameSheet()
   
2. Dim i
   
3. Dim n
   
4. For i = 1 To Worksheets.Count
   
5. 'E6为要重命名的文字所在的单元格
   
6.    n = Worksheets(i).Range("E6").Value
   
7.    If n <> "" Then
   
8.      Worksheets(i).Name = n
   
9.    End If
   
10. Next
    
11. End Sub
    

复制代码

将工作表的名称重命名为单元格的值

　　通过快表软件合并导出的功能导出报表后，可以通过下面的VBA将工作表的名称重命名为模板中指定单元格的值。

1. Sub ReNameSheet()
   
2. Dim i
   
3. Dim n
   
4. For i = 1 To Worksheets.Count
   
5. 'E6为要重命名的文字所在的单元格
   
6.    n = Worksheets(i).Range("E6").Value
   
7.    If n <> "" Then
   
8.      Worksheets(i).Name = n
   
9.    End If
   
10. Next
    
11. End Sub
    

复制代码