Question

我试图根据包含“MR0 ...”的B列中的单元格隐藏行，并保留不包含“MR0 ...”的行。例如，我有一个列表，并希望隐藏包含超过1000 MR ...代码的行。 MR01010 MR01020 MR01050 MR01052 MR01059 MR01060 MR01080 MR01081 MR01110

我已尝试过以下内容，但似乎陷入了像“* MR0”那样的.value然后阶段......

Sub MonthlyStage2()

beginRow = 13
endRow = 500
chkCol = 2

For rowCnt = beginRow To endRow
    If Cells(rowCnt, chkCol).Value Like "*MR" Then
        Cells(rowCnt, chkCol).EntireRow.Hidden = True
    Else
        Cells(rowCnt, chkCol).EntireRow.Hidden = False
    End If
Next rowCnt
End Sub

＆安培;

Sub stage2()
Dim rng As Range
Dim cell As Range
Dim ContainWord As String
Dim LR As Long, i As Long

LR = Range("B" & Rows.Count).End(xlUp).row
For i = LR To 2 Step -1
If Range("B" & i).Value Like "*MR0" Then Rows(i).EntireRow.Hidden = True

Next i

End Sub

没有太多运气。有什么帮助吗？欢呼声

Answer 1

第一个代码从第13行开始检查，第二个代码从第二行开始从第二行开始。

使用条件UIStackView都可以正常工作，但对于大数据来说可能会有点慢。

为了加快速度，您可以考虑在最后一次执行隐藏操作。像这样：

*MR0*

根据包含文本的单元格隐藏行

1 个答案: