
excel
Sub 恢复保存()name0 = ActiveWorkbook.Name j = Sheets.Count For i = 1 To j Sheets(1).Visible = -1 Sheets(1).Move Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1) NextEnd Sub
然后运行一下这个宏,完事点停止,最后关闭文件就搞定了。 2. 如果还不行,建议重装软件。 3. 最后用杀毒软件全盘杀一遍,防止病毒搞事情。以上方法亲测有效,希望能帮到你!
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号