求大师帮忙 ，怎么设置显示隔行数据

路过人间

想设置一个按钮，显示隔行的数据，再设置一个按钮，点一下，显示可以选择显示多少行的数据，比如显示50行，100行，200行，等 谢谢了

逍遥爱迪生

Sub HideRowsAfter20()     Dim ws As Worksheet     Set ws = ActiveSheet ' 当前活动工作表          Application.ScreenUpdating = False ' 关闭屏幕更新以提高性能          ' 显示前20行     ws.Range("1:20").EntireRow.Hidden = False          ' 获取工作表的总行数     Dim lastRow As Long     lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row          ' 如果总行数大于20，则隐藏第21行及以后的行     If lastRow > 20 Then         ws.Range("21:" & lastRow).EntireRow.Hidden = True     End If          Application.ScreenUpdating = True ' 重新启用屏幕更新 End Sub   

路过人间

逍遥爱迪生 发表于 2025-5-10 05:11
Sub HideRowsAfter20()     Dim ws As Worksheet     Set ws = ActiveSheet ' 当前活动工作表          App ...

提示错误，缺少函数，麻烦您再看一下，谢谢了

李贵濮

看看。。。。。。。。。。。。。。。。。。