将工作表的名称重命名为单元格的值
将工作表的名称重命名为单元格的值
通过快表软件合并导出的功能导出报表后，可以通过下面的VBA将工作表的名称重命名为模板中指定单元格的值。
Sub ReNameSheet()
Dim i
Dim n
For i = 1 To Worksheets.Count
'E6为要重命名的文字所在的单元格
n = Worksheets(i).Range("E6").Value
If n <> "" Then
Worksheets(i).Name = n
End If
Next
End Sub
页:
[1]