隐藏范围内的单元格,而不是整行

时间:2015-06-23 14:30:37

标签: excel excel-vba vba

我使用下面的子,但它隐藏了整行。我想隐藏范围中的一些单元格,例如Range("N13:R13")中的单元格。

Sub HideRows()
    Dim cell As Range
    Dim DataCount As Integer

With Workbooks("Mywb").Worksheets("Output")
    DataCount = .Range("N11:" & "N" & Rows.Count).End(xlDown).Row

    For Each cell In .Range("N11:N" & DataCount)
            If InStr(cell.Value, "SMALL") > 0 Or InStr(cell.Value, "SM") > 0 Then
            .Range("N" & cell.Row & ":R" & cell.Row).EntireRow.Hidden = True
            End If
    Next cell
End With
End Sub

那么我怎样才能隐藏NR列之间的行,而不是整行?最诚挚的问候

2 个答案:

答案 0 :(得分:0)

我认为您只能隐藏整列或整行。隐藏意味着Excel折叠行或列。例如,我不知道如何隐藏单个细胞。

答案 1 :(得分:0)

您无法隐藏特定的单元格集。      Hidden = True应该用于整个行/列。 您可以使用以下内容更改单元格的格式,以隐藏内容

Range("N" & cell.Row & ":R" & cell.Row).NumberFormat = ";;;"

但即使这样做也会在公式栏中显示内容。