複製單元格並在數據之間插入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行

回答

相關問題