宏:Sub re100()n = 1For Each ws In Worksheetsws.Name = nn = n + 1if n=101 then goto fendNext wsfend:End Sub