VBA：设定区域显示或者隐藏，显示的单元格自动设定行高

Private Sub Worksheet_Activate()Dim A As Range, RN As Range, RNS As Range, i As IntegerFor Each A In [c6:c9,c12:c50]   If A = "" And A.Height <> 0 Then        k = k + 1        If k = 1 Then            Set RN = A        Else            Set RN = Union(RN, A)            'F = RN.Address        End If    End If    If A <> "" And A.Height <> 10 Then        n = n + 1        If n = 1 Then            Set RNS = A        'F = RNS.Address        Else            Set RNS = Union(RNS, A)        End If    End If    Nexti = 0For n = 13 To 50    If Cells(n, "C") <> "" Then i = i + 1Next nDebug.Print iIf k <> "" Then RN.RowHeight = 0Select Case iCase Is < 15    RNS.RowHeight = 35Case 15 To 20    RNS.RowHeight = 27Case 21 To 26    RNS.RowHeight = 21Case 27 To 32    RNS.RowHeight = 18Case Is > 32    RNS.RowHeight = 15.5End SelectEnd Sub