定位多单元后如何隐藏这些行?

LangQueS · 发表于 2006-9-30 05:07

定位多单元(如A5、B8、H12、F9)后如何隐藏这些行？可否用VBA实现？

stx1980710 · 发表于 2006-9-30 08:37

用下面的代码可隐藏行:

Dim rr As Variant
rr = Array("A5", "B8", "H12")
Dim i As Integer
For i = 0 To UBound(rr)
Rows(Range(rr(i)).Row).Hidden = True

Next i

stx1980710 · 发表于 2006-9-30 08:40

也可以声明一个对象变量,在变量内进行循环

Dim rg As Range
Set rg = Range("A5,B5,H12")

lirong · 发表于 2006-9-30 17:25

來個簡單一點的:

Sub Macro1()
Range("D9,F12,D15").EntireRow.Hidden = True
End Sub

LangQueS · 发表于 2006-9-30 18:56

qzPsVNom.rar (30.91 KB, 下载次数: 12)

感谢诸位的关注，不过，定位的单元不是确定位置，请参考附件，烦请费心。

HOmT398 · 发表于 2006-9-30 19:42

Sub 文本定位()
Dim aa As Range
For Each a In ActiveSheet.UsedRange
If a Like "*合计*" Then
If aa Is Nothing Then
Set aa = a.Cells
Else
Set aa = Union(aa, a.Cells)
End If
End If
Next
aa.EntireRow.Hidden = True
End Sub

LangQueS · 发表于 2006-9-30 20:21

HOmT398的很好用，非常感谢！

18sut · 发表于 2009-1-16 13:27

各位的方法学习了,谢谢,我有个问题,
请问各位,如果是反过来呢, 定位多单元后如何隐藏其它行,只显示刚刚定位的行, 并选定某列的第一个空格,有点类似筛选吧,

[ 本帖最后由 18sut 于 2009-1-16 13:31 编辑 ]

		自动登录	找回密码
密码			免费注册

定位多单元后如何隐藏这些行?

要隐藏的行位置不确定