If e.IsFocusCell Then '如果是焦点所在单元格
If e.Row("第二列")="七年级" Or e.Row("第二列") Like "%七年级" Or e.Row("第二列") Like "七年级%" Or e.Row("第二列") Like "%七年级%" Then
For Each c As Col In e.Table.Cols
c.Visible=False
Next
Dim strs() As String={3,5,6,7,8,9,10}‘这块换成列名’
For Each str As String In strs
e.Col(str).Visible=True
Next
End If
End If