Sub 刷新()
ActiveWorkbook.RefreshAll
MsgBox "一键分析完成!汇总分析报表已最新!"
Sheets("汇总分析报表").Select
Range("C3").Select
End Sub
Sub 保存()
ActiveWorkbook.Save
MsgBox "已保存成功!"
End Sub
Sub 增加行数()
i = Range("C1048576").End(xlUp).Row()
Range("C" & i).Select
Rows(i).Insert shift:=xlUp
End Sub