使用VBAmacros重命名Excel工作表

我想询问有关重命名Excel表，我想用新的名称重命名表：旧名+ _v1。

所以，如果我目前的工作表名称是testing ，那么我想要新的名称test_v1 。

我只知道标准的vba重命名excel表单，它是由表单内容重命名excel表单。

Sub Test() Dim WS As Worksheet For Each WS In Sheets WS.Name = WS.Range("A5") Next WS End Sub 

Answer 1

这应该做到这一点：

 WS.Name = WS.Name & "_v1" 

Answer 2

“无褶边”选项如下：

 ActiveSheet.Name = "New Name" 

和

 Sheets("Sheet2").Name = "New Name" 

您还可以查看录制的macros，看看它给了你什么代码，这是一个开始学习一些更多的香草函数的好方法。

Answer 3

build议您添加处理以testing是否有任何要重命名的工作表已经存在：

 Sub Test() Dim ws As Worksheet Dim ws1 As Worksheet Dim strErr As String On Error Resume Next For Each ws In ActiveWorkbook.Sheets Set ws1 = Sheets(ws.Name & "_v1") If ws1 Is Nothing Then ws.Name = ws.Name & "_v1" Else strErr = strErr & ws.Name & "_v1" & vbNewLine End If Set ws1 = Nothing Next On Error GoTo 0 If Len(strErr) > 0 Then MsgBox strErr, vbOKOnly, "these sheets already existed" End Sub