­ã´£³¡ªL

Sub FindData()
Dim xR As Range, xA As Range, xF As Range, j%
Set xR = [´M§ä!a2]
xR(1, 2).Resize(1, 200) = ""
Set xA = Sheets("¤u§@ªí1").UsedRange
Set xF = xA.Columns(1).Find(xR, Lookat:=xlWhole)
If xR = "" Or xF Is Nothing Then Exit Sub
For j = 2 To xA.Columns.Count
    If xF(1, j) <> "" Then Set xR = xR(1, 2): xR = xA(2, j)
Next j
End Sub