Question

EXCEL宏，在这个宏运行完之后。自动保存整个工作表

就是想要一个命令，能加到宏的最后面，意思就是运行完这个宏之后，保存整个Worksheets

Answer 1

ActiveWorkbook.Save '保存工作簿

追问

Sub Go()
For i = 1 To 45
Sheets(i).UsedRange = Sheets(i).UsedRange.Value
Next
End Sub
比如这个宏 我直接改成这样就行吗？
Next ActiveWorkbook.Save
End Sub

追答

Sub Go()
For i = 1 To 45
Sheets(i).UsedRange = Sheets(i).UsedRange.Value
Next
ActiveWorkbook.Save
End Sub

Answer 2

追问

辛苦专家了。我的意思是比如下面这个宏，运行完之后，怎么加一个自动保存整个工作表的代码
Sub A1图678第分析图制作()
For i = 102 To 188
Sheets(i).Activate
Call z图678第一步
Next i
End Sub

追答

就把我发的那段保存的代码放到该执行的位置即可。

就把我发的那段保存的代码放到该执行的位置即可。