Private Sub Worksheet_SelectionChange(ByVal Target As Range)For i = 5 To 64If Cells(i, 1) > 38 Then Rows(i).Hidden = True '隐藏该行NextEnd Sub
