VBA - 在动态标头下插入行

Question

我希望在电子表格顶部的冻结标题行下方插入一个新行。我面临的问题是标题中的行数不断变化，但我总是希望将行插入标题下面的第一行。行中是否有一个标志着它被冻结的标志？我可以用所述标志计算行数，添加1并插入行。任何帮助都会非常有用。

马特

Answer 1

如果你正在使用FreezePanes那么我认为你走这条路：

Sub InsertRowBelowHeader()
    Rows(ActiveWindow.Panes(1).VisibleRange.Rows.Count + 1).Insert
End Sub

之前，冻结行位于第5行下方。冻结窗格已在单元格A6上完成

之后，添加了一行以拆分a / b

以下是Google针对冻结窗格和VBA提出的相关讨论。 http://www.mrexcel.com/forum/excel-questions/275645-identifying-freeze-panes-position-sheet-using-visual-basic-applications.html

Answer 2

你在这里！

Sub InsertRowBelowHeader()
    Rows(ActiveWindow.SplitRow + 1).Insert
End Sub