代码如下，参见附件Sub RenameSheet() Dim sht As Worksheet, shtName As String, str For Each sht In ActiveWorkbook.Worksheets shtName = sht.
確定！ 回上一頁
