能否这样寻找

青青的河边草

刚才发了一个类式的求助贴，得到很多热心的帮助，在此一一致谢，刚才贴子因少了一个条件，故无法得到预期的目的，现重新求助：

在表中， R列最后数不会只停留在207格，是会向下增加的，R列的起始是动态的，不会固定从Rn单元格开始，可以理解为R列中有一段连续的有数字的单元格，点击钮（符合4个格钮），以R列有数字的最后端4个单元格为标准框，向上寻找，若该段有连续4个单元格内数(含顺序排序)和标准框一模一样，那么R列中符合条件的单元格就显黄色（含标准框），若沒有，就不显色（含标准框）。

Jason_WangSS

看看哪位人才做出来，学习一下

大灰狼1976

符合3个格。

1. Private Sub CommandButton2_Click()
   
2. Dim rng As Range, i&, r&, rng1 As Range, b As Boolean
   
3. Set rng = Cells(Rows.Count, "r").End(3).CurrentRegion
   
4. r = rng.Rows.Count
   
5. Set rng1 = rng(r - 2, 1).Resize(3)
   
6. For i = r - 3 To 3 Step -1
   
7.   If rng(r, 1) = rng(i, 1) And rng(r - 1, 1) = rng(i - 1, 1) And rng(r - 2, 1) = rng(i - 2, 1) Then
   
8.     b = True
   
9.     Set rng1 = Union(rng1, rng(i - 2, 1).Resize(3))
   
10.   End If
    
11. Next i
    
12. If b Then rng1.Interior.Color = vbYellow
    
13. End Sub

复制代码

一把小刀闯天下

'3只匹配一下，如果从2-4也算3需要修改一下，，，

Option Explicit

Private Sub CommandButton1_Click()
  Call fc(4)
End Sub

Private Sub CommandButton2_Click()
  Call fc(3)
End Sub

Function fc(n)
  Dim arr, a, b, i, j
  [r:r].Interior.ColorIndex = xlNone
  arr = [ac1:ac4].Value
  b = Cells(Rows.Count, "r").End(xlUp).Row
  a = b - Cells(b, "r").CurrentRegion.Rows.Count + 1
  For i = a To b - n + 1
    For j = i To i + n - 1
      If Cells(j, "r").Value <> arr(j - i + 1, 1) Then Exit For
    Next
    If j = i + n Then Cells(i, "r").Resize(n).Interior.ColorIndex = 3
  Next
End Function

一把小刀闯天下

这种代码100%审核，，，

shmylovei

一把小刀闯天下 发表于 2019-10-9 15:56
这种代码100%审核，，，

老师好，帮我看看我的这个求助帖吧
http://club.excelhome.net/thread-1502490-1-1.html

muyuangan

青青的河边草

muyuangan 发表于 2019-10-9 17:04

符合条件标准框没显黄色？

青青的河边草

大灰狼1976 发表于 2019-10-9 15:50
符合3个格。

符合4个格怎样修改，我怎么改都出错。

zhangcheng6688

一把小刀闯天下 发表于 2019-10-9 15:54
'3只匹配一下，如果从2-4也算3需要修改一下，，，

Option Explicit

加油，加油！！！！！！