
excel
VBASub rename()Dim x As Integer, y As IntegerDim a As WorkbookSet a = ActiveWorkbooky = a.Sheets.CountFor x = 1 To ySheets(x).SelectSheets(x).Name = "表" & xNext xEnd Sub以上代码能够在当前工作簿中对所有工作表进行重命名。关于您提到的重包的离命名的快捷键问题,目前没有针对离命名的快捷键设置。感谢您的提问!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号