A    姓名

aaa

bbb

ccc

ddd

eee

fff

excel sheet1中的数据，

A     B姓名

ssss

ddd

fff

jjj

kkk

aaa

rrr

bbb

ggg

ccc

uuu

eee

lll

fff

excel sheet2中的数据
现在想把sheet2中的与sheet1中的相同的数据旁边的单元格显示为获奖，
现在编辑程序如下：
Sub xingji1()
Dim i As Integer, j As Integer, XM1 As Range, XM2 As Range
i = 2
j = 2
XM1 = Worksheets("sheet1").Cells(i, "A")
XM2 = Worksheets("sheet2").Cells(j, "A")
For Each XM1 In Worksheets("sheet1")
    Do Until XM1 Is XM2
    Worksheets("sheet2").Cells(j, "B").Value = "获奖"
    j = j + 1
    Loop
    i = i + 1
Next XM1  
End Sub

但是不成功，求VBA大神指点！