'删除后面多余的列指定Sht页.Columns("N:BD").EntireColumn.Delete shift:=ylup
ActiveSheet.Rows("1:11").Delete shift:=xlup ,后面的列移动过来ActiveSheet.columns("a:e").Delete shift:=ylup ,