[已解决]数据查找

michaelzhu

求助大师帮忙把公式改成VBA代码，单条件查找，返回多个结果于同一个单元格中。

最佳答案

月排行榜 / 总排行榜

cutecpu

2022-12-3 17:19

sub demo()


set d = CreateObject("Scripting.Dictionary")
with sheets(1)
  a=.[a1].CurrentRegion
  for i = 1 to ubound(a)
    d(a(i,1)) = d(a(i,1)) & "," & a(i,2)
  next
end with
with sheets(2)
  a=.[a1].CurrentRegion
  for i = 1 to ubound(a)
    a(i,1)= mid(d(a(i,1)),2,1000)
  next
  .[b1].resize(ubound(a))=a
end with

end sub

跳转到最佳答案楼层

cutecpu

sub demo()


set d = CreateObject("Scripting.Dictionary")
with sheets(1)
  a=.[a1].CurrentRegion
  for i = 1 to ubound(a)
    d(a(i,1)) = d(a(i,1)) & "," & a(i,2)
  next
end with
with sheets(2)
  a=.[a1].CurrentRegion
  for i = 1 to ubound(a)
    a(i,1)= mid(d(a(i,1)),2,1000)
  next
  .[b1].resize(ubound(a))=a
end with

end sub

michaelzhu

cutecpu 发表于 2022-12-3 17:19
sub demo()

谢谢老师，无法评分送小红花。