求助一个查找问题

方漠

右键单击工作表SHEET1,选查看代码. COPY如下代码进去即可.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim StF As String

  If Target.Column = 2 And Target.Row = 1 Then
  
  StF = [B1]
  [B1] = ""

  Cells.Find(What:=StF).Activate

  End If

End Sub