求助一个查找问题

a195713812

今天做了一个表格，但是不知道怎么设置查找，希望大家帮我解决这个问题

方漠

右键单击工作表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