(资料图片)

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

本文到此分享完毕，希望对大家有所帮助。