excel vba复制最后行

对你的要求不太明确，如果单纯的复制最后一行到下一行，有两种方法：

1、表中存在必定不为空的列，以循环方式一行一行检测该列是不是不空，如果为空则以赋值的形式进行，如i为行，则用ActiveSheet.Rows(i)=ActiveSheet.Rows(i)

2、可以使用用户使用的区域的方法赋值，如?ActiveSheet.Rows(?ActiveSheet.UsedRange.Rows.Count+1)=ActiveSheet.Rows(ActiveSheet.UsedRange.Rows.Count)

由于用户使用区域不是我们所见的有数据则为使用区域，所以第二种方法有一定缺陷，建议用第一种方法。