1、冻结窗格的三种（冻结窗格、冻结首行、冻结首列）
2、冻结窗格的三种（冻结窗格、冻结首行、冻结首列）代码如果Sub 冻结窗格() ActiveWindow.Fr髫潋啜缅eezePanes = True MsgBox "冻结单元格地址为:" & Replace(ActiveSheet.Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Address, "$", "")End SubSub 冻结首行窗格() ActiveWindow.SplitColumn = 0 ActiveWindow.SplitRow = 1 ActiveWindow.FreezePanes = True MsgBox "冻结的为第" & ActiveWindow.SplitRow & "行"End SubSub 冻结首列窗格() With ActiveWindow .SplitColumn = 1 .SplitRow = 0 End With ActiveWindow.FreezePanes = True MsgBox "冻结的为第:" & ActiveWindow.SplitColumn & "列"End SubSub 取消冻结窗格() With ActiveWindow .SplitColumn = 0 .SplitRow = 0 End With ActiveWindow.FreezePanes = FalseEnd SubSub 冻结窗格地址() If ActiveWindow.FreezePanes Then MsgBox "冻结单元格地址为:" & Replace(ActiveSheet.Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Address, "$", "") Else MsgBox "未冻结单元格!" End IfEnd Sub
3、必须启用宏：https://jingyan.baidu.com/article/f0062228d512adbad3f0c895.html
