第1个回答 推荐于2019-08-13
最近发现较多此问题,解决方法就是每个表移出去再移回来就可以了。
如果懂得使用宏,写法如下,说白了就是将每个表移出去再移回去。
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)
Next
End Sub本回答被网友采纳