excel复制工作表后取它的序号

Option Explicit

Sub test() Dim sh As Worksheet For Each sh In Worksheets sh.Activate sh.Name = Range("a1") NextEnd Sub----------------------------------------------------------------