[解決済み] どのようにvbaコードCells.FindによってExcelの列で値を見つけるために

質問

ある値を見つけなければならない セルダ をExcelシートで表示します。私はそれを見つけるために、このvbaコードを使っていました。

Set cell = Cells.Find(What:=celda, After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False)


If cell Is Nothing Then
    'do it something

Else
    'do it another thing
End If

問題は、値を見つける必要がある場合です。 エクセルカラムのみ . 私は次のコードでそれを見つける。

    Columns("B:B").Select
    Selection.Find(What:="VA22GU1", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

しかし、最初のvbaのコードにどのように適応させればいいのかわかりません、なぜなら、私は値 nothing .

解決方法は？

を使うだけです。

Dim Cell As Range
Columns("B:B").Select
Set cell = Selection.Find(What:="celda", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If cell Is Nothing Then
    'do it something

Else
    'do it another thing
End If