[已解决]求助怎么设置宏使粘帖内容自动分列

qwh923820

怎么设置宏，使复制 A快内容 贴到 B块内容 下面，使A\B列紧接E、F下面粘帖，C列紧接I列下面粘帖。

其中A块区域内容的行数是不固定的，
      B块区域的行数也是不固定的
      A和B在不同的EXCEL，A区域内容是通过筛选出来的。
      如何使A区域内容一次复制，在B区域粘帖时分列

万分感谢了！！

复制前


复制完


如何设置宏一次完成

附件为EXCEL

求助.rar (7.54 KB, 下载次数: 5)

2015-11-9 13:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-11-9 14:03

1. Sub 复制()
   
2.     Range("a1:a" & [a65536].End(3).Row).Copy [e65536].End(3).Offset(1)
   
3.     Range("b1:b" & [b65536].End(3).Row).Copy [f65536].End(3).Offset(1)
   
4.     Range("c1:c" & [c65536].End(3).Row).Copy [i65536].End(3).Offset(1)
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

qwh923820

忘记说了，是2个excel，A区域是在一个EXCEL里面的，选中复制后怎么在另一个EXCEL粘帖时自动分列

qwh923820

A区域所在的行数和需要复制的行数是不固定的，B区域所在行数也是不固定的。本来要粘帖2次，希望能用宏做成1次。


万分感谢了，大神

lichuanboy44

没让人看懂你的要求，A块内容粘贴到B块，在你的示例中，B块怎么会出现111，222等A块没有数据呢？
你说“A\B列紧接E、F下面粘帖，C列紧接I列下面粘帖。”那么GH列的数据又是怎么回事。

qwh923820

lichuanboy44 发表于 2015-11-9 13:44
没让人看懂你的要求，A块内容粘贴到B块，在你的示例中，B块怎么会出现111，222等A块没有数据呢？
你说“A\ ...

是这样的

在公司计算成本，需要将一个EXCEL里面A区域的内容复制到另一个EXCEL里面B区域，B区域里面原本就有很多的内容，需要接着下面把A区域复制进来，A、B两列的内容复制在E、F里面,C列的内容复制到I列下面。


总结就是怎么把复制的内容在粘帖时自动分开粘帖。

grf1973

1. Sub 复制()
   
2.     Range("a1:a" & [a65536].End(3).Row).Copy [e65536].End(3).Offset(1)
   
3.     Range("b1:b" & [b65536].End(3).Row).Copy [f65536].End(3).Offset(1)
   
4.     Range("c1:c" & [c65536].End(3).Row).Copy [i65536].End(3).Offset(1)
   
5. End Sub
   

复制代码

grf1973

请看附件。如果EFI各列不齐，会自动贴到最下行。

qwh923820

grf1973 发表于 2015-11-9 14:03

谢谢，依葫芦画瓢改成这样，能用，就是太繁琐了

     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Range("L1:N" & [N50].End(3).Row).Copy [C400].End(3).Offset(1)
    Range("O1:O" & [O50].End(3).Row).Copy [G400].End(3).Offset(1)
    Range("l1:O50").ClearContents




再次谢谢你，提供了思路