rows.count，clearcontents，worksheets，copy，提取行数，清除内容，跨工作表，复制

rows.count：提取某个区域的行数，range（）.rows.count提取range内的行数。cells(rows.count,1)第一列最后一行

range（）.clearcontents清除某一区域内的内容

worksheets（“”）.range()跨工作表提取内容

range（）.copy cells（）需要复制的单元格  复制到单元格的位置

Sub t()

Dim rng1 As Range
Dim rng2 As Range
    Set rng1 = Worksheets("yuanshi").Range("a2", Cells(2, "d").End(xlDown))‘获取工作表“yuanshi”中的区域’
    Set rng2 = Worksheets("dao").Cells(Rows.Count, "a").End(xlUp)(2, 1)‘定位到需要粘贴的工作表“dao”的位置’
    
    rng1.Copy rng2  ‘将工作表1中的单元格复制到工作表2中’
    rng2(1, 5).Resize(rng1.Rows.Count,1) = Now   ‘提取复制单元格的行数，给复制到的区域的所有行赋值当前时间’
MsgBox "copy executed"
rng1.ClearContents‘清除区域1的内容’

End Sub

内容从yuanshi表中复制到了dao表中