使用一个宏冻结和解冻excel中的顶行

如何仅使用一个宏冻结和解冻excel中的顶行？

---

如中所示，单击宏一次可冻结顶行，再次单击宏可解冻？

要执行此操作，您需要检查顶行是否冻结的if/else条件。 下面的代码就是这样做的，并且假设您想要冻结第1行，而不是当前可见的顶部行。 若您确实想冻结顶部可见行，您将删除“范围”（“A2”）。选择“行”

---

冻结和解冻顶行的两个代码：

Sub Freeze()

    With ThisWorkbook.Worksheets("Sheet1")

        'Active the sheet you want
        .Activate
        'To remove any panes
        ActiveWindow.FreezePanes = False
        'Select the second row
        .Rows("2:2").Select
        'Apple freeze
        ActiveWindow.FreezePanes = True

    End With

End Sub

---

---

你的问题表明你没有自己的努力/研究！这是一篇问答文章。我在发布问题的同时发布了答案。提出的问题是如何在“仅一个宏”中执行此操作

Sub Freeze()

    With ThisWorkbook.Worksheets("Sheet1")

        'Active the sheet you want
        .Activate
        'To remove any panes
        ActiveWindow.FreezePanes = False
        'Select the second row
        .Rows("2:2").Select
        'Apple freeze
        ActiveWindow.FreezePanes = True

    End With

End Sub

Sub UnFreeze()

    With ThisWorkbook.Worksheets("Sheet1")

        'Active the sheet you want
        .Activate
        'Remove freeze
        ActiveWindow.FreezePanes = False

    End With

End Sub