EXCEL某一列单元格为某值时自动隐藏该行，求教VBA代码

Question

EXCEL的第i列单元格为字母N时，自动隐藏该行（如果该行为多行合并而成的话多行也一起隐藏）

Answer 1

Sub a()
 
Dim rg As Range
Dim n As Integer
 
Application.ScreenUpdating = False
 
n = 1
 
For Each rg In Application.Intersect(ActiveSheet.UsedRange, Columns("I"))
 
If rg.Value = "N" Then rg.Select

With Selection
.EntireRow.Hidden = True
End With

Next rg
 
Application.ScreenUpdating = True
 
End Sub

追问

我将你的代码负值到了sheet页中，但是选择N不自动隐藏呀，你这个按钮是怎么弄出来的。。。？

追答

选择N自动隐藏？

如果你是想选择I列的单元格，如果单元格的值为"N"，就自动隐藏单元格所在行

把下边的代码放到sheet里

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Columns("i")) Is Nothing Then

Dim rg As Range

For Each rg In Application.Intersect(Target, Columns("i"))
If rg.Value = "N" Then

rg.Select
With Selection
.EntireRow.Hidden = True
End With

End If

Next rg

End If

End Sub

Answer 2

excel隐藏整列或者整行。
宏代码如下
隐藏b列
sub 隐藏指定工作表的指定列()
sheet1.columns("b:b").entirecolumn.hidden = true
end sub隐藏2行
sub 隐藏指定工作表的指定行()
sheet1.rows("2:2").entirerow.hidden = true
end sub