《批量冻结窗格EXCEL技巧.doc》由会员分享，可在线阅读，更多相关《批量冻结窗格EXCEL技巧.doc（1页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
Sub Macro1()以当前单元格为界线批量冻结窗格On Error Resume NextDim sTem$, i%, sMax$Application.ScreenUpdating = FalsesTem = ActiveCell.AddressiMax = ActiveSheet.NameFor i = 1 To Sheets.CountSheets(i).ActivateRange(sTem).SelectActiveWindow.FreezePanes = False 取消以前的冻结窗格状态ActiveWindow.FreezePanes = True 以当前单元格为界线冻结窗格NextSheets(iMax).SelectRange(sTem).SelectApplication.ScreenUpdating = TrueEnd Sub