如何用excel的VBA来修改工作表名称

Question

比如，有一个工作簿，里面有三张工作表，名称分别是2013-9-12【强度】和2013-9-13【量能】，2013-9-14【日志记录】

能否做一个VBA，运行后，工作表的名称分别是2013-9-12、2013-9-13和2013-9-14，就是就是判断三个工作表名称中的如果含有【强度】、【量能】和【日志记录】其中之一就删除这样的字样

Answer 1

代码如下，参见附件

Sub RenameSheet()
    Dim sht As Worksheet, shtName As String, str
    For Each sht In ActiveWorkbook.Worksheets
        shtName = sht.Name
        For Each str In Array("【强度】", "【量能】", "【日志记录】")
            shtName = Replace(shtName, str, "")
        Next str
        sht.Name = shtName
    Next sht
End Sub

Answer 2

Sub test()
For i = 1 To ThisWorkbook.Worksheets.Count

Sheets(i).Name = Left(Sheets(i).Name, InStr(1, Sheets(i).Name, "【") - 1)

Next

End Sub

这个通过验证，可以实现了。