[英]Rename Excel Sheet with VBA Macro
我想问一下重命名excel表格,我想用新名称重命名表格:旧名称+ _v1。
因此,如果我当前的工作表名称是test ,那么我想要新名称test_v1 。
我只知道重命名 Excel 工作表的标准 vba,它通过工作表内容重命名 Excel 工作表。
Sub Test()
Dim WS As Worksheet
For Each WS In Sheets
WS.Name = WS.Range("A5")
Next WS
End Sub
“无装饰”选项如下:
ActiveSheet.Name = "New Name"
和
Sheets("Sheet2").Name = "New Name"
您还可以查看录制宏并查看它为您提供的代码,这是开始学习一些更普通的功能的好方法。
这应该这样做:
WS.Name = WS.Name & "_v1"
建议您添加处理以测试任何要重命名的工作表是否已存在:
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.