Vba 取消分组将不允许滚动

我正在从一个工作表复制到另一个工作表，并对所选内容进行分组。当我单击加号以显示完整组时，我无法滚动分组选择。这是我用来扩展组的语法，是什么阻止我滚动浏览

解组允许我滚动，但工作表上的数据本身从不移动，只移动页面右侧的滚动条

Set rLastCell = ActiveSheet.Cells.Find(What:="*", After:=Cells(1, 1), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
Range("A2:A" & rLastCell.Row).Rows.Group
ActiveSheet.Outline.ShowLevels RowLevels:=1

---

据我所知，Excel中有两个功能可能导致此问题。两者都位于“查看”功能区选项下。请确认冻结或拆分选项未处于活动状态。

我也在使用此语法冻结窗格-是罪魁祸首吗？行（“2:2”）。选择ActiveWindow.FreezePanes=True Range（“A1”）。选择我的怀疑是您的冻结语法可能是罪魁祸首。冻结表现在很多方面：）冻结正是问题的根源。除了冷冻，还有什么方法可以让标题保存在taact中吗？