EXCEL宏问题

[aiglet]

我在Sheet1里有A、B列。我想用宏实现Sheet2里A1 = Sheet1里A列值为1的对应的B列的值
例如sheet1
A B
1 12 t1
2 1 t2
3 45 t3

运行宏后sheet2的A1 = t2

请大虾们帮帮忙。。。。

[cndrip]

对于你这题是没问题，对于其他可能存在问题
Sub FindOneValue()

Dim Tot_num, aa
Tot_num = Application.WorksheetFunction.Count(Worksheets("Sheet1").Range("A:A"))
For i = 1 To Tot_num
If Worksheets("Sheet1").Cells(i, 1).Value = 1 Then
aa = Worksheets("Sheet1").Cells(i, 2)
Exit For
End If
Next i
Worksheets("Sheet2").Cells(1, 1) = aa

End Sub