excel求助：如果sheet1里的A列里的数据出现在sheet2的A列里，
答案:2 悬赏:80 手机版
解决时间 2021-11-11 20:50
- 提问者网友：缘字诀
- 2021-11-11 15:57
excel求助：如果sheet1里的A列里的数据出现在sheet2的A列里，
最佳答案
- 五星知识达人网友：天凉才是好个秋
- 2021-11-11 16:04
只能编VBA了，提示：用find语句与entirerow。追问能具体吗，就是想要个编码，谢谢追答for i=1 to 1000
if not sheets(1).cells(i,1).find(sheets(2).[A:A]) IS NOTHING THEN
sheets(1).cells(i,1).entirerow.copy sheets(3).cells(1000,1).end(xlup).offset(1).entirerow
sheets(1).cells(i,1).entirerow.delete
end if
nextsorry,find那个写反了，
for i=1 to 1000
if not sheets(2).[A:A].find(sheets(1).cells(i,1)) IS NOTHING THEN
sheets(1).cells(i,1).entirerow.copy sheets(3).cells(1000,1).end(xlup).offset(1).entirerow
sheets(1).cells(i,1).entirerow.delete
end if
next追问请问这是什么情况
追答括号必须英文状态
if not sheets(1).cells(i,1).find(sheets(2).[A:A]) IS NOTHING THEN
sheets(1).cells(i,1).entirerow.copy sheets(3).cells(1000,1).end(xlup).offset(1).entirerow
sheets(1).cells(i,1).entirerow.delete
end if
nextsorry,find那个写反了，
for i=1 to 1000
if not sheets(2).[A:A].find(sheets(1).cells(i,1)) IS NOTHING THEN
sheets(1).cells(i,1).entirerow.copy sheets(3).cells(1000,1).end(xlup).offset(1).entirerow
sheets(1).cells(i,1).entirerow.delete
end if
next追问请问这是什么情况
追答括号必须英文状态
全部回答
- 1楼网友：街头电车
- 2021-11-11 16:57
用VBA编个小程序解决吧。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯