循环合并内容求助

2868361650

循环合并求助，
比如有这样的数据，A列有N个数据，C列有M个数据，

然后要把这两列数据循环合并到E列，这种通过VBA要怎么实现呢？谢谢

hasyh2008

把A列的放在奇数行，C列的放在偶数行。

hasyh2008

sub tt()
  dim k
  with activesheet
    for k = 1 to 1000
      .cells(2k-1,5)=.cells(k,1)
      .cells(2k,5)=.cells(k,3)
    next k
  end with
end sub