求excel有条件隐藏或显示某一行

求excel有条件隐藏或显示某一行。比如B列里有“中”字的话自动隐藏的VB

用宏一分钟解决。同时按alt和f11进入宏界面，点菜单的插入，模块，粘贴如下代码：
sub test()
application.screenupdating = false
dim i as integer
columns.hidden = false
for i = 3 to 156
if cells(2, i) = "" then columns(i).hidden = true
next i
application.screenupdating = true
end sub

在此界面直接按f5运行此宏，完成。

Private Sub Worksheet_Activate()     n = Cells(Rows.Count, 2)     For i = 1 To n         If InStr(Cells(i, 2), "中") Then             Rows(i).Hidden = True         Else             Rows(i).Hidden = False         End If     Next End Sub

要用VBA做的，很简单。 Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Address = "$P$8" Then If [p8] = "*中*" Then Sheet5.Rows(5).Hidden = True Application.ScreenUpdating = True End Sub