根据find的值将variables分配给另一个单元格

我已经使用find命令设置了一个variables等于一个值（“Outlt”）。 我想将单元格的值设置在列A的左侧，等于另一个名为“Outnode”的variables

我已经尝试了使用偏移量的几个不同的代码，但我不断收到错误。 任何人都可以帮我分配“Outnode”到细胞的左侧，我会发现“Outlt”的细胞？ 我没有正确地设置“Findout”到单元格中，我发现单词“Outlt”？ 谢谢。

Sub FindOffsetvalue () Dim number As Integer Dim Findout As range Dim Outnode As range Sheets(1).Activate If Trim(number) <> "" Then With Sheets(1).range("B:B") Set Findout = .Find(What:="Outlt", After:=.Cells(.Cells.Count), _ LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If Not Findout Is Nothing Then Findout.Select Else MsgBox "Nothing found" End If End With End If End Sub 

Answer 1

  If Not Findout Is Nothing Then Findout.Select Set Outnode = Findout.Offset(0, -1) Else MsgBox "Nothing found" End If