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