Excel VBA 查找列中相同值的范围

Question

我需要编写一个宏来根据值查找单元格范围。一列在一行中具有相同的值，我需要找出在一行中具有相同值的第一列和最后一列。

所以宏需要找到“Jill Cross”的范围是a4到a9

到目前为止我没有太多，有办法找到一个值的第一次出现

   Function GetFirstCell(CellRef As Range)
   Dim l As Long
   l = Application.WorksheetFunction.Match(CellRef.Value, Range("A1:A10000"), 0)
   GetFirstCell = l
   End Function

现在我需要以某种方式循环下一行以返回出现的最后一行

Answer 1

如果您的第一个单元格位于排序列表中，则 countif 函数将轻松为您提供最后一个单元格。

   Function GetFirstCell(CellRef As Range) as long
       Dim l As Long
       l = Application.WorksheetFunction.Match(CellRef.Value, Range("A1:A10000"), 0)
       GetFirstCell = l
   End Function

   function GetLastCell(cellRef as range, lFirstCell as long)
       Dim l As Long
       l = Application.WorksheetFunction.countif(Range("A1:A10000"), CellRef.Value)
       GetLastCell = lFirstCell+l-1
   End Function