'删除后面多余的列
指定Sht页.Columns("N:BD").EntireColumn.Delete shift:=ylup

 

 

ActiveSheet.Rows("1:11").Delete     shift:=xlup   ,后面的列移动过来
ActiveSheet.columns("a:e").Delete   shift:=ylup  ,

posted on 2022-01-18 11:32  乐_天涯  阅读(655)  评论(0)    收藏  举报