把表格全选ctrl+a,选上全格边框
然后放到4,出现向右的箭头,向下拉4、5,摁住ctrl键,再选住你要隐藏的那两行,出现下面的效果,最后选择边框第一个,再选第七个,就是上下有框的那个
最后的预览是这样
这是我认为的,不一定是最简单的!
鼠标移至工作表标签处,右键,查看代码,把下列代码粘贴进去
Sub xx()
For I = 5 To Sheets(“工作表标签名").Range("A65536").End(xlUp).Row + 4 Step 5
Rows(I - 1).Hidden = True
Rows(I).Hidden = True
Next
End Sub
关闭VB窗口,ALT+F8,运行XX宏。
很简单啊,做个辅助列,=IF(MOD(ROW(),3)=0,"",1),出来就是每连续2个1,一个空白,调整公式让要保留的行对应空白,然后复制这列,用特殊粘贴-数值粘回这一列,然后选中这列,按F5,特殊里面选常数,公式下面4个选项只留数字,按确认,所有的1都被选中,按ctrl + 9 就全部隐藏了
主要是看你的目的,如果用这个来处理大量的数据,还不是很好。
如果确实需要这样做,可以在另外的列加一个固定的标识,然后分类筛选。
后边加个固定的序号,分类筛选不行吗??