如何设置要使用Excel VBA进行搜索的列？

Question

我正在尝试仅在B列中执行搜索，但是下面的代码正在搜索整个工作表。如何更改我的代码以仅搜索B列？

Columns("B:B").Select

                Cells.Find(What:=Region, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                        False, SearchFormat:=False).Activate

Answer 1

Columns("B:B").Find(What:=Region, After:=Range("B1"), LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                    False, SearchFormat:=False).Activate