excel - 查找包含特定文本的第一行和最后一行

Question

我有一长串(2,000 + 行)不同值的列表。我试图找到每个值的第一行和最后一行。举个例子(注意:所有数据都在一列中):

Bats
Bats
Bats
Bats
Bats
Bats
Fun
Fun
Fun
Fun
Bases
Bases
Bases
Bases
Bases
Bases
Bases
Bases
Bases
Bases
Bases
Balls
Balls
Balls
Balls
Balls
Balls
Balls
Balls

如何找到包含每个单词的第一行(从顶部开始)和最后一行。 bat 从第 1 行开始，在第 6 行结束。乐趣从第 7 行开始，在第 10 行结束。

除了将每个单元格与前一个单元格进行比较的循环之外，还有什么想法可以更快地做到这一点，如果它们不同则添加一个行变量？

寻找如何在 VBA 中这样做。

Answer 1

我想通了 - VBA 风格。我可以使用 find() 来帮助:

Dim batStartRow as Long, batEndRow as Long
With Sheets("Sheet1")
    batStartRow = .Range("A:A").Find(what:="bats", after:=.Range("A1")).Row
    batEndRow = .Range("A:A").Find(what:="bats",after:=.Range("A1"), searchdirection:=xlPrevious).Row
End With

然后用其他词替换“bats”，它就会起作用。

编辑:您可能需要添加 LookIn:=xlValues限定符，取决于正在搜索的信息/数据。