[已解决]隐藏非当前行,代码怎么写

lslly

隐藏非当前行,代码怎么写

最佳答案

月排行榜 / 总排行榜

TTTTT

2012-3-19 23:09

考虑当前选择的是工作表第1行，最后一行，以及多行区域（单元格区域），写了一个代码，复杂了一点，供参考：

跳转到最佳答案楼层

不解木野狐

怎么个隐藏法？？？

hrpotter

1. Sub test()
   
2.     Dim x As Long, y As Long
   
3.     x = ActiveCell.Row
   
4.     y = Rows.Count
   
5.     Rows("1:" & x - 1).Hidden = True
   
6.     Rows(x + 1 & ":" & y).Hidden = True
   
7. End Sub

复制代码

TTTTT

考虑当前选择的是工作表第1行，最后一行，以及多行区域（单元格区域），写了一个代码，复杂了一点，供参考：

lslly

TTTTT 发表于 2012-3-19 23:09
考虑当前选择的是工作表第1行，最后一行，以及多行区域（单元格区域），写了一个代码，复杂了一点，供参考： ...

谢谢,果然有效

去研究下