alt+f11 双击thisworkbook 复制粘贴下面代码 Sub 按钮1_Click()For i = 1 To Worksheets.CountSheets(i).Name = "A141-32-" & iNextEnd Sub然后点上面绿色播放小按钮即可!
仪表图