代码之家 › 专栏 › 技术社区 › Ronan Garrison

VBA-根据单元格是否包含特定文本隐藏行

cells multiple-columns excel vba

Ronan Garrison · 技术社区 · 7 年前

查看扫描整个列以查看产品(在单个单元格中)是否可能停产。如果不连续词在单元格中,则为真。如果停止,我希望整行都隐藏起来。有什么建议吗?

Sub HideRows()
    Dim c As Range
    For Each c In Range("B3:B2452")
        If InStr(1, c, "Discontinued") Or InStr(1, c, "discontinued") Then
            c.EntireRow.Hidden = True
        End If
        Next
End Sub

1 回复 | 直到 7 年前

tigeravatar 7 年前

Sub HideRows()

    Dim rCheck As Range
    Dim rHide As Range
    Dim rCheckCell As Range

    Set rCheck = ActiveWorkbook.ActiveSheet.Range("B3:B2452")
    rCheck.EntireRow.Hidden = False

    For Each rCheckCell In rCheck.Cells
        If InStr(1, rCheckCell, "Discontinued", vbTextCompare) > 0 Then
            If Not rHide Is Nothing Then Set rHide = Union(rHide, rCheckCell) Else Set rHide = rCheckCell
        End If
    Next rCheckCell

    If Not rHide Is Nothing Then rHide.EntireRow.Hidden = True

End Sub

推荐文章

Lee · 当有这么多列时,使用R更改列的特定值

3 年前

D_K · R获取新表

3 年前

Duerna · 将3列一组的多列表格重塑为3列表格[重复]

7 年前

Monica Olvera · 如何按非字母顺序排列pandas数据框中的列,并合并matplotlib表的单元格?

7 年前

TylerNG · 在python中连接/组合类似列

7 年前

Yogita Aher · 如何使用pyspark在下面的代码中传递数组(多列)

7 年前

frank · 如何基于sas中的特定列合并2个表

7 年前

bapors · 比较不同文件的多列,如果存在匹配项,则从文件中追加一列

7 年前

beta · 获取pandas数据帧的唯一列对

7 年前

Satrya Cahya · 如何通过一次保存创建多个foreach?

7 年前