Excel VBA range.find不返回第一个外观？

Question

我在工作表中有以下值：

Scrolling Enabled

我的代码：

A1:  apple
B1:  orange
C1:  pear
D1:  apple pie
E1:  papaya
F1:  blueberry
G1:  apple

为什么我的代码将t返回为7而不是1？

提前致谢。

Answer 1

您的编码会在单元格 A1 之后进行搜索。有很多方法可以搜索到包含 A1 。这是一个：

Sub durals()
    Dim r As Range, r2 As Range
    Dim t As Long

    Set r = Range("1:1")
    Set r2 = r(1, Columns.Count)

    t = r.Find(What:="apple", After:=r2).Column
    MsgBox t
End Sub