vba - 命名动态范围并将其转换为变量

Question

我试图根据 .Find 命名一个范围，然后将该范围定义为我的变量，这样我就可以将该变量输入到不同的函数中。当我运行代码时，出现类型不匹配错误。

Sub Faked()
Dim r As Range
Cells.Find(What:="EE status", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
    Range(Selection, Selection.End(xlDown)).Name = "Win"
Set r = ("Win")


End Sub

Answer 1

因为斯科特这么说。试试 Set r = range("Win")

要测试 r 是否正确选择范围，可以这样做

for each c in r
    debug.print c
next

编辑:或者如果你像德克一样酷，

Set r = [Win]