有一个excel表格中有50多个sheet，每一个都需要冻结前两行，有没有简便方法操作一次就行了？

来源：百度知道 编辑：UC知道 时间：2024/05/24 08:33:35
我知道选中所有sheet，可以进行隐藏，粘贴等操作，做一次就都行了，但是冻结不行，必须一个一个弄，请问冻结有没有简便方法？

可以用vba
按住ALT依次按 F11,I,M
粘贴下面的代码后按F5运行
===================================

Sub 冻结所有工作表()
For Each s In ThisWorkbook.Worksheets
s.Select
[a3].Select
ActiveWindow.FreezePanes = True
Next
End Sub

我来凑热闹~~来个简单点的~~

ALT+F11 调出VBA编辑器
双击左边的这个表名的 ThisWorkbook输入

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A3").Select
ActiveWindow.FreezePanes = True
End Sub

确定即可~~

Sub aa()
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A3").Select
ActiveWindow.FreezePanes = True
Next i
End Sub

for i=1 to 50
With thiworkbook.worksheets(i)
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
next i

煤油直接的办法的 恐怕要动用VBA来实现了