1、建立辅助列譬如A列,在A2输入公式:=MOD(ROW(),2)=0,回车;
见图一
2、选中A2,下拉填充A列,转到“数据”工具栏,点击“筛选”
见图二
3、点击A1边上的小箭头,勾上“TRUE”前的小方块,点确定;
见图三
4 、实际效果是隐藏奇数行 ;
见图四
5、点击A1边上的小箭头,勾上“FALSH”前的小方块,点确定;
见图五
6、实际效果是隐藏偶数行;
见图六
插入一个按钮( CommandButton1),录入一下代码(i<10,限定了10行以内的奇数行,这个根据你的要求定)
Private Sub CommandButton1_Click()
Dim i As Integer
i = 1
Do While i < 10
Me.Rows(i).EntireRow.Hidden = True
i = i + 2
Loop
End Sub
有个土方法,虽非隐藏操作,但结果是隐藏了。方法如下:
1、在最前边插入一列,先做数字1和2的序列号:在A1输入1,A2输入2,框选A1、A2,按下Ctrl下拉填充1和2。
2、选中A列,数据——筛选——自动筛选,用筛选选出序列为2的行。
什么意思,,没听明白。