问如何在Excel2007VBA中以编程方式冻结Excel工作表的顶行？

EN

Rows("2:2").Select
ActiveWindow.FreezePanes = True

为不同的效果选择不同的范围，这与手动操作的方法非常相似。“冻结首行”实际上只是Excel 2007 (或更高版本)中的一个新快捷方式，与Excel的早期版本相比，它不包含任何附加功能。

Tomalak已经给了你一个正确的答案，但我想补充的是，在大多数情况下，当你想知道在用户界面中执行特定操作所需的VBA代码时，记录一个宏是一个好主意。

在这种情况下，单击功能区的“开发人员”选项卡上的“记录宏”，冻结顶行，然后停止录制。Excel将为您录制以下宏，该宏也可完成此工作：

With ActiveWindow
    .SplitColumn = 0
    .SplitRow = 1
End With
ActiveWindow.FreezePanes = True

录制的宏的问题与内置操作的问题相同: Excel选择冻结顶部可见行，而不是可以找到标题信息的实际顶部行。

在这种情况下，宏的目的是冻结实际的顶行。当我查看第405592行时，我需要检查列的标题(因为我在打开文件时忘记了冻结行)，我必须滚动到顶部，冻结第一行，然后再次找到返回到第405592行的方法。因为我认为这是愚蠢的行为，所以我想要一个宏来纠正它，但是，正如我所说的，录制的宏只是模仿了同样的愚蠢行为。

我正在使用Office 2011 for Mac OS X Lion

更新(2分钟后)：

我在这里找到了一个解决方案：http://www.ozgrid.com/forum/showthread.php?t=19692

Dim r As Range 
Set r = ActiveCell 
Range("A2").Select 
With ActiveWindow 
    .FreezePanes = False 
    .ScrollRow = 1 
    .ScrollColumn = 1 
    .FreezePanes = True 
    .ScrollRow = r.Row 
End With 
r.Select