请问如何用VBA实现如下效果：在“组件工作表里，按A列重复值计数，例如S4Z030130的...

新一

请问如何用VBA实现如下效果：在“组件工作表里，按A列重复值计数，例如S4Z030130的计数是5,那么在“总表工作表里出现S4Z030130的位置插入计数值的行数，并复制S4Z030130对应的物料在刚刚插入的位置上，以此类推。

大神门，帮忙看看，万分感谢。

cutecpu

sub demo()


set d1 = CreateObject("Scripting.Dictionary")
set d2 = CreateObject("Scripting.Dictionary")


with sheets(1)
a=.[a1].CurrentRegion
for i=2 to ubound(a)
  d1(a(i,2)) = d1(a(i,2)) +1
next
end with


with sheets(2)
b=.[a1].CurrentRegion
for i=2 to ubound(b)
  d2(b(i,1)) = d2(b(i,1))&","&b(i,2)
  n = n + d1(b(i,1))
next
end with


redim c(1 to n + ubound(a)-1,3)
for i=2 to ubound(a)
  m = m + 1
  c(m,1) = a(i,1)
  c(m,2) = a(i,2)
  c(m,3) = a(i,3)
  b = split(d2(a(i,2)),",")
  for k=1 to ubound(b)
    m=m+1
    c(m,2) = b(k)
    c(m,3) = "取消"
  next
next
sheets(1).[a2].resize(m,3)=c
end sub

新一

谢谢大神，非常实用