求助VBA简单问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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大神指点！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：简单问题 VBA worksheets worksheet Integer 程序 姓名

yehuo11 发表于 2015-7-8 13:55
excel sheet1中的数据，

excel sheet2中的数据

咱们俩思路可能不太一样，具体我就不说了，我觉得好像cell（j,\"A\"）可能不太成，你改成cells（j,1）试下，我最近没电脑，要不给你调下，其实说实话这种问题我一般采用vlookup函数

王树满 发表于 2015-7-8 14:55
咱们俩思路可能不太一样，具体我就不说了，我觉得好像cell（j,\"A\"）可能不太成，你改成cells（j,1）试下 ...

vlookup的话，只能一次v一个的吧，因为数据量较大，这个程序我运行一下，不是“Ａ＂的问题，是说没有ｗｉｔｈ模块，也不知道是怎么回事……能请教下，ｖｌｏｏｋｕｐ的话要怎么弄么？谢谢啦！