将数据移动到没有标题的下一张纸上。数据与标题一起移动。我试图离开标题并将数据仅复制到另一张纸上。
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
答案 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