如何重置Excel垂直滚动条长度(不关闭,然后重新打开工作簿)

Bri*_*ang 5 excel vba excel-vba

我的程序的一部分在工作表中粘贴了几列数据,然后删除每列中的重复值(使用变量范围来搜索名为rngDelete的重复值),然后计算唯一值的数量.获取计数值后,我删除了rngDelete中的所有行.

但是我注意到在删除行之后,我的垂直滚动条长度仍然保持不变,即与我在rngDelete行中的数据时的长度相同.确实,重新打开工作表将重置滚动条长度,但我想知道是否有办法在程序运行时完成时强制执行此操作?

dcr*_*ley 7

执行以下操作会重置lastcell并执行您想要的操作.

ActiveSheet.UsedRange.SpecialCells (xlCellTypeLastCell)
Run Code Online (Sandbox Code Playgroud)