如何用vba代码调整工作簿中各表的A列有效数据最后一行显示到指定行位置？

作者：绿色风分类：时间：2022-08-17 浏览：92

楼主 kevinchengcw	Q: 如何用vba代码调整工作簿中各表的A列有效数据最后一行显示到指定行位置？ A: 利用如下代码可实现这一目的： Sub test() Dim Ws As Worksheet, N&, I% For Each Ws In Worksheets '循环各个工作表 With Ws .Activate '激活循环到的工作表（因为要用到活动窗口的属性来判断，所以要激活） I = ActiveWindow.VisibleRange.Rows.Count - 5 '取得活动窗口的行数并关掉要下方预留的空行数 For N = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 '从使用区域的最后一行开始向上循环A列各单元格) If Trim(.Cells(N, 1).Text) <> "" Then Exit For '如果单元格为有效数据则退出循环 Next N If N > I Then ActiveWindow.ScrollRow = N - I '判断当前值与活动窗口预留行数关系，如果大于则说明数据总行数超过要显示的行数，减去相应数据并滚屏到相应行处 End With Next Ws End Sub
2楼 lslly	'取得活动窗口的行数并关掉要下方预留的空行数?
3楼 lslly	活动窗口预留行数?

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表