找到具有特定單元格值的單元格的特定範圍

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 

這似乎是工作