VBA--遍历所有工作表_冻结首行_无视工作表长度_and_所在单元格位置

最新推荐文章于 2023-10-27 14:09:32 发布

STR_Liang

最新推荐文章于 2023-10-27 14:09:32 发布

阅读量2.1k

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/STR_Liang/article/details/105144364

版权

VBA 专栏收录该内容

62 篇文章 26 订阅

订阅专栏

Sub 遍历所有工作表_冻结首行_无视工作表长度_and_所在单元格位置()
    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Worksheets
        sht.Activate
        Range("E2").Select
        With ActiveWindow
            .ScrollRow = 1 '当前窗口最上面的行号，相当于移动最右侧的滚动条
            .SplitColumn = 0 '拆分(冻结)窗口，保留第几列
            .SplitRow = 1 '拆分(冻结)窗口，保留第几行
        End With
        ActiveWindow.FreezePanes = True '微软官方：这是可能的FreezePanes是真正的和拆分为假，反之亦然。如果拆分窗格被冻结，则为True。读/写布尔值。
    Next
End Sub