vba - 计数行直到找到特定的字符串

Question

我正在尝试使用 Excel VBA 来计算行数，直到我点击一个特定的字符串并设置一个等于它的变量。

就像是:

Dim i as Integer

i = Worksheets("Scope Phase Document").Range("A1", Range("A1").End(xlDown)).Find("FACTS - What are we measuring?").Count

我知道这不是正确的语法，我可能还遗漏了其他东西，但只是使用我目前知道的不同功能，这就是我希望能做到的。我明白了

Run-time error '91' saying "Object variable or With block variable not set

我尝试了几种不同的方法，但无法找出不会导致错误的方法。

所以我想从 A1 开始并向下计数所有行，直到达到特定的字符串“FACTS - 我们在测量什么？”。

任何帮助将不胜感激!

Answer 1

我更喜欢 MATCH，但如果找不到匹配项，则会引发错误。所以我们需要对此进行测试:

Dim i As Long
i = 0
On Error Resume Next
i = Application.WorksheetFunction.Match("FACTS - What are we measuring?", ActiveSheet.Range("A:A"), 0)
On Error GoTo 0
If i > 0 Then
 ' do you stuff with i
End If