没有标题将数据移动到下一张纸

时间:2018-09-13 18:27:12

标签: excel vba excel-vba

将数据移动到没有标题的下一张纸上。数据与标题一起移动。我试图离开标题并将数据仅复制到另一张纸上。

Sub cmdButtonData_Click()

    SellStartDate = Sheets("Start").Range("H10").Value   
    SellEndDate = Sheets("Launch").Range("H11").Value     

    'Copy the data
    Sheets("Sheet1").Range("A1:K2").Copy Sheets("Sheet2").Range("A1")
    Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants).Copy Sheets("Sheet2").Range("A3")
    Sheets("Sheet1").Activate
    Sheets("Sheet2").Range("A3:T3").Clear

End Sub

1 个答案:

答案 0 :(得分:1)

假设A3有标题,则可以使用“偏移”和“调整大小”。坦率地说,一点点不清楚,但这说明了原理。

With Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants)
   .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy Sheets("Sheet2").Range("A3")
End With