找到具有特定单元格值的单元格的特定范围

Question

我正在为Excel文档编写一个脚本，该文档将返回列中具有特定单元格值的单元格区域，以便我可以指向另一列多少是绿色，琥珀色或红色的范围。下面是Excel文件的例子： -

Type Reference Department Colour 
Large 20      Green 
Large 21      Green 
Large 2      Amber 
Large 23      Amber 
Large 5      Green 
Medium 6      Red 
Medium 23      Green 
Medium 8      Green 
Medium 10      Red 
Small 11      Amber 
Small 12      Red 
Small 16      Green 
Small 17      Green 
Small 33      Green 
Small 36      Amber 
Small 55      Amber 

这是脚本我有，但只找到具有该值的第二个手机号码。我需要找到所有“大”，“中”和“小”的范围。

Set rngFindValue = ActiveSheet.Range("H22:H" & lastRow).Find(What:="Medium", After:=ActiveSheet.Range("H22"), LookIn:=xlFormulas) 
      If Not rngFindValue Is Nothing Then 
       MsgBox rngFindValue.Address 
      End If 

Answer 1

我已经解决了。这是新的代码，我有，我能够获得该范围内的第一个单元格和最后一个单元格： -

Dim mediumStartRow As Integer 
Dim mediumEndRow As Integer 

     mediumStartRow = Range("H:H").Find(what:="Medium Project", after:=Range("H21")).Row 
     mediumEndRow = Range("H:H").Find(what:="Medium Project", after:=Range("H21"), searchdirection:=xlPrevious).Row 
     MsgBox "First and Last Row for Medium Projects: " & mediumStartRow & mediumEndRow 

这似乎是工作