我必须将范围(“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行?
答案 0 :(得分:0)
由于两个目的地都设置为表格(" Sheet3")。范围(" A22:A40")
你正在写第一个第二个。
尝试将第二个目的地更改为表格(" Sheet3")。范围(" A43:A61")
将在它们之间留下两行