VBA 有多个单元格内容,只有NO,该行下6行隐藏或是显示问题

准提部林

[b3] = "Is this Item Subcontracted?"
[c3] = yes 或 no

Private Sub Worksheet_Change(ByVal Target As Range)
Dim T$, K
With Target
     If .Count > 1 Or .Column <> 3 Then Exit Sub
     If LCase(.Cells(1, 0)) <> "is this item subcontracted?" Then Exit Sub
     T = "-" & UCase(.Value) & "-": K = ""
     If InStr("--YES-Y-", T) > 1 Then K = False
     If InStr("--NO-N-", T) > 1 Then K = True
     If K <> "" Then .Cells(2, 1).Resize(7).EntireRow.Hidden = K
End With
End Sub