请问怎么用VBA冻结所有工作表的第一行

lilianlanbei

请问怎么用VBA冻结Excel里所有工作表的第一行，而且每次工作表的数量是不一定的，谢谢！

不知道为什么

dim sh as worksheet

for each sh in worksheets

next

Jefforry

先用录制宏冻结一个工作表试一遍，再加个循环工作表就可以了。

excelhomezql

Sub X()
Dim wt As Worksheet
For Each wt In Worksheets
    wt.Activate
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
Next
End Sub

lilianlanbei

excelhomezql 发表于 2018-6-20 16:15
Sub X()
Dim wt As Worksheet
For Each wt In Worksheets

太感谢了，学会啦！

7438

excelhomezql 发表于 2018-6-20 16:15
Sub X()
Dim wt As Worksheet
For Each wt In Worksheets

这个方法好，查了一下微软的帮助，其中没有明说，但是楼主总结出来了，非常感谢，我又学会了一招

ning84

1. Private Sub del()
   
2.     AddArr = Array("兰州", "珠海", "武汉", "北京", "抚远", "漠河", "三沙", "喀什")
   
3.     Dim Sht As Worksheet, Rng As Range   
   
4.     For ii = 0 To UBound(AddArr)
   
5.          Set Sht = Sheets(AddArr(ii))
   
6.              Sht.Activate
   
7.              If ii = 0 Then
   
8.                   ActiveSheet.Shapes("Button 3").Select
   
9.                   Selection.Copy
   
10.              Else
    
11.                   Sht.Range("E1").Select
    
12.                   ActiveSheet.Paste
    
13.              End If
    
14.              Rows("3:3").Select
    
15.              ActiveWindow.FreezePanes = True
    
16.     Next ii
    
17. End Sub
    

复制代码