Question

我必须将范围（“A22：A40”）从Sheet1复制到Sheet3和范围（“A22：A40”） Sheet2到Sheet3。 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”）。范围（“A22：A40”）仅包含表格（“Sheet2”）。范围（“A22：A40”）值。

我想在之后插入两行，然后将第二份复制到Sheet3

我怎样才能将它们分成2行？

Answer 1

由于两个目的地都设置为表格（＆＃34; Sheet3＆＃34;）。范围（＆＃34; A22：A40＆＃34;）

你正在写第一个第二个。

尝试将第二个目的地更改为表格（＆＃34; Sheet3＆＃34;）。范围（＆＃34; A43：A61＆＃34;）

将在它们之间留下两行

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

1 个答案: