能否将符合条件的行保留

青青的河边草

在表中，R列----X列有些数字，有些单元格已标出绿色，能否点击钮后，从R8行起，带绿色的行保留，其余的行隐藏。

蓝桥玄霜

隐藏的代码：

xuqing8331

看是否是楼主要的效果

青青的河边草

蓝桥玄霜 发表于 2019-10-28 09:38
隐藏的代码：

提示：属性使用无效，不知我抄错那？Private Sub CommandButton1_Click()
Dim Arr, i&, rng As Range

Cella.EntireRow.Hidden = False

Arr = [r16].CurrentRegion

For i = 1 To UBound(Arr)

For j = 1 To UBound(Arr, 2)

If Cells(i + 15, j + 17).Interior.ColorIndex = 14 Then

GoTo 100

End If

Next

If rng Is Nothing Then Set rng = Rows(i + 15) Else Set rng = Union(rng, Rows(i + 15))

100:

Next

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

End Sub

青青的河边草

蓝桥玄霜 发表于 2019-10-28 09:38
隐藏的代码：

行中有数字不一定必须从第16行起，。

青青的河边草

xuqing8331 发表于 2019-10-28 09:38
看是否是楼主要的效果

开始寻找行不一定是从r8开始，是动态的，能修改吗？

xuqing8331

青青的河边草 发表于 2019-10-28 11:10
开始寻找行不一定是从r8开始，是动态的，能修改吗？

前面的1-7行也隐藏吗？
用 usedrange 来确定区域可行？

青青的河边草

xuqing8331 发表于 2019-10-28 11:33
前面的1-7行也隐藏吗？
用 usedrange 来确定区域可行？

不隐藏，谢谢你的热心帮助。

sj15627581616

Sub Macro1()
Dim arr
arr = Range("a1:x" & Range("x99999").End(xlUp).Row)
For i = 8 To UBound(arr)

If Cells(i, 18).Interior.Color = 5287936 Or Cells(i, 19).Interior.Color = 5287936 Or Cells(i, 20).Interior.Color = 5287936 Or Cells(i, 21).Interior.Color = 5287936 Or Cells(i, 22).Interior.Color = 5287936 Or Cells(i, 23).Interior.Color = 5287936 Or Cells(i, 24).Interior.Color = 5287936 Then
  Rows(i).Select
    Selection.EntireRow.Hidden = False
    Else
      Rows(i).Select
    Selection.EntireRow.Hidden = True
  End If
  Next
End Sub

水一个

xuqing8331

再看看是不是所需要的？