Excel VBA-在动态标题下插入行

我希望在电子表格顶部冻结的标题行下方插入一个新行。我面临的问题是标题中的行数不断变化，但我始终希望将行插入标题下的第一行。这一排有没有写着“冻结”的旗子？我可以用这个标志计算行的数量，加1，然后插入行。任何帮助都会很有帮助

马特，给你

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

---

如果您使用的是

冻结窗格

，那么我认为您可以这样做：

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

在之前，冻结线位于第5行下方。冻结窗格已在单元格

A6

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

---

下面是一个关于谷歌冻结窗格和VBA的相关讨论

很接近，但可能没有雪茄。OP询问了不同的.FreezePane，它可以独立于Split进行设置。如果他真的在谈论拆分窗格，你就搞定了，如果不是，我认为这是不可能的。那只是在页眉内的页面顶部插入一行，然后将页眉中的所有内容向下移动。我需要在标题外添加一行。我所做的工作是在excel中进入“查看>冻结窗格>冻结顶行”，然后在标题顶部插入行。我只想使用VBA和其他工具在“header”冻结行的正下方插入一行。问题是标题中的行数总是在变化，但我希望该行总是在标题之后插入。我复制了您描述的所有操作，然后启动了代码，在冻结的行下面插入了一行。我使用的是Excel2007Win7x64。好吧，这成功了，我肯定还有一段旧代码在上面插入了一行。非常感谢！当你说冻结时，你是说你使用了

ActiveWindow.FreezePanes

（在VBA中）还是

View | FreezePanes | FreezePanes

（从功能区中）。或者你是说在同一个窗口中有同一个电子表格的多个可滚动视图的情况下，

Split

？我是说查看|冻结窗格|冻结顶行，从ribbonExcellent

ActiveWindow.Panes（1）。VisibleRange.Rows.Count+1

将为您提供

冻结行下方的行号

。我的术语可能不正确，所做的只是在标题中插入一行，并将标题包含的行数增加1当我运行该代码时，它会将行添加到冻结行下方。也许可以在你的帖子中添加一张图片，这样我们就可以看到我们在处理什么了？你的回答解决了OP提出的问题。他接受了另一个答案，表明这不是他想问的问题……至少我学会了如何访问

VisibleRange

。。。这是新的。