Excel怎么搜索sheet1和sheet2中相同项,将sheet2相同内容填入表sheet1中
我想让第一张图中sheet1序号下内容,自动检索到sheet2中相同序号的内容,并且将sheet2表中相同序号后的内容1、内容2、内容3复制到sheet1中的相同位置。请...
我想让第一张图中sheet1序号下内容,自动检索到sheet2中相同序号的内容,并且将sheet2表中相同序号后的内容1、内容2、内容3复制到sheet1中的相同位置。请各位大神帮帮忙。
展开
5个回答
2019-01-24 · 知道合伙人软件行家
关注
展开全部
也可用vba解决:
Sub test()
Dim arr,i,r
Set d=crateobject(“Scripting.Dictionary”)
r=Sheet2.Cells(rows.count,1).end(3).row
arr=Sheet2.Range(“A1:D” & r)
For i=1 to Ubound(arr)
d(arr(i,1))=i
next
For i =2 to Sheet1.Cells(rows.count,1).end(3).row
If d.exists(Sheet1.Cells(i,1).Value) then
For j=2 to 4
Sheet2.Cells(i,j)=arr(d(Sheet2.Cells(i,1).Value),j)
Next
End if
Next
end sub
Sub test()
Dim arr,i,r
Set d=crateobject(“Scripting.Dictionary”)
r=Sheet2.Cells(rows.count,1).end(3).row
arr=Sheet2.Range(“A1:D” & r)
For i=1 to Ubound(arr)
d(arr(i,1))=i
next
For i =2 to Sheet1.Cells(rows.count,1).end(3).row
If d.exists(Sheet1.Cells(i,1).Value) then
For j=2 to 4
Sheet2.Cells(i,j)=arr(d(Sheet2.Cells(i,1).Value),j)
Next
End if
Next
end sub
追问
不会用。。但是谢谢大神
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
B2输入
=vlookup($a2,sheet2!$a:$d,column(b1),)
公式右拉再下拉
=vlookup($a2,sheet2!$a:$d,column(b1),)
公式右拉再下拉
更多追问追答
追问
大神,这公式什么意思,能帮忙解释一下吗,万分感谢
大神,这公式什么意思,能帮忙解释一下吗,万分感谢
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
excel 公式是 vlookup
追问
大神,能帮忙列出来看看吗
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Excel搜索 有什么不知道的就找百度知道 百度知道解决万千疑难事 有什么不知道的就找百度知道 百度知道解决万千疑难事
有什么不知道的就找百度知道 百度知道解决万千疑难事
有什么不知道的就找百度知道 百度知道解决万千疑难事
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询