复制的语句:Sheet1.Range("A4:M15").Copy寻找下一行的办法是:Sheet2.Cells(Rows.Count,1).End(xlUP).Offset(1,0)在最后一行选择性粘贴,只粘贴数值的语句是:Sheet2.Cells(Rows.Count,1).End(xlUP).Offset(1,0).Specialaste xlValues你需要的首尾两个语句,中间一个只是解释