沿所有工作表固定行或列

Question

我想制作一个工作簿并将其中的一行和一列固定并显示在所有工作表中。 你能帮帮我们吗？

我知道如何在单个工作表上冻结窗格但不在整个工作簿上冻结窗格

谢谢

Answer 1

这应该有效：

Sub FreezePanes()

Dim wsh As Worksheet
Dim current As Worksheet

Set current = ActiveSheet

For Each wsh In Worksheets

  wsh.Activate
  Range("B2").Select
  ActiveWindow.FreezePanes = True

Next wsh

current.Activate

End Sub