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

【问题标题】：copy cells and insert 2 lines between data复制单元格并在数据之间插入 2 行
【发布时间】：2016-06-08 11:18:26
【问题描述】：

我必须将 Range("A22:A40") 从 Sheet1 复制到 Sheet3 和 Range("A22:A40") 从表 2 到表 3。 Sheet3中的每个数据必须用两行分隔这就是我所做的：

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

但 Sheets("Sheet3").Range("A22:A40") 仅包含 Sheets ("Sheet2").Range("A22:A40") 值。

我想在后面插入两行，然后将第二个副本复制到 Sheet3

如何将它们分隔 2 行？

【问题讨论】：

标签： vba excel

【解决方案1】：

由于两个目的地都设置为 Sheets("Sheet3").Range("A22:A40")

你正在写第一个和第二个。

尝试将第二个目的地更改为 Sheets("Sheet3").Range("A43:A61")

这将在它们之间留下两行

【讨论】：

我想将 Sheets("Sheet2").Range("A22:A40") 复制到 Sheets("Sheet3").Range("A22:A40") 然后在第二个副本（我想将 Sheet3 中的两个副本分开 2 行）
糟糕，我的错误，我的范围有误。这就是你熬夜到凌晨 5 点所得到的：P 我已经更新了我的答案