用数组复制单元格区域
function test1(){
var rng=WorksheetFunction.Application.Range(Range("p1"),Range("q1").End(xlDown));
var arr=rng.Value2;
rng.Offset(0,5).Value2=arr;
}