复制单元格并在数据之间插入2行

我必须从Sheet1到Sheet3将范围（“A22：A40”）和范围（“A22：A40”）从 Sheet2复制到Sheet3。每一个数据必须由两条线在工作表Sheet 3 分开，这是我做了什么：复制单元格并在数据之间插入2行

With Sheets("Sheet1").Range("A22:A40") 'A40 because i can have maximum 40 data 
    Application.Intersect(.SpecialCells(xlCellTypeVisible), _ 
      .SpecialCells(xlCellTypeConstants)).Copy _ 
       Destination:=Sheets("Sheet3").Range("A22:A40") 
End With 

With Sheets("Sheet2").Range("A22:A40") 'A40 because i can have maximum 40 data 
    Application.Intersect(.SpecialCells(xlCellTypeVisible), _ 
      .SpecialCells(xlCellTypeConstants)).Copy _ 
       Destination:=Sheets("Sheet3").Range("A22:A40") 
End With

但表（“工作表Sheet 3”）的范围。（“A22：A40”）只包含表（“Sheet2的”）。范围（“A22：A40”）值。

我只想后插入两行，然后进行第二个副本到Sheet

我怎么可以由2行separeted呢？

来源

2016-06-08 John

由于两个目的地设置为表（“工作表Sheet 3”）的范围。（“A22：A40”）

你写了一个第一与第二个。

尝试改变第二目的地表（ “工作表Sheet 3”）的范围。（ “A43：A61”）

将离开

来源

2016-06-08 11:30:31 MutjayLee

它们之间的两行我想要复制表（ “Sheet2的”） .Range（“A22：A40”）到表格（“Sheet3”）。范围（“A22：A40”），然后在第二个副本之前添加两行（我想将Sheet3中的两个副本分开两行） – John

Oops ，我的错误，我有错误的范围。那你得到什么直到上午5点：P我已经更新了我的答案 – MutjayLee

复制单元格并在数据之间插入2行

回答

相关问题