利用vba怎样编写将工作表中第三行到最后一行（不确定）的数据复制并插入到另一个工作表的第二行前？

Posted 2023-03-13

插入表中的原第二行数据下移到表尾

原则上VBA可以做到，但是你没有说清楚什么才叫做新的，只看日期吗，只看序号吗，我就假设你的A列是序号，用序号判断吧，程序代码如下：

参考技术A

将工作表中1第三行到最后一行（不确定）的数据复制并插入到工作表2的第二行前，VBA代码为：

Sub x()
    Sheets(1).Range("3:" & Sheets(1).UsedRange.Rows.Count).Copy
    Sheets(2).Range("2:2").Insert
End Sub

参考技术B Sub 插入复制()
   X = Range("a65536").End(xlUp).Row
       Rows("3:" & X).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
End Sub

复制到Sheet1表

将Sheet1 第3行开始的数据插入到Sheet2第2行