excel加载宏后不停的闪

2024年11月29日 10:44
有1个网友回答
网友(1):

Sub ycop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)Application.ScreenUpdating = True
End If
End Sub