冻结窗格
Sheets("统计结果列表").Activate ActiveWindow.FreezePanes = False Sheets("统计结果列表").Range("b2").Select ActiveWindow.FreezePanes = True 需要在Application.ScreenUpdating = True以外