2022 年 1月随笔档案 - 乐_天涯

01 2022 档案

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

posted @ 2022-01-18 11:32 乐_天涯阅读(661) 评论(0) 推荐(0)

vba 调换指定列的位置

摘要：Sub dh() '不加"Sheets("指定页")."默认当前页 x = Sheets("Sheet1").[A65536].End(xlUp).Rowb = Sheets("Sheet1").Range("b1:b" & x)c = Sheets("Sheet1").Range("c1:c" & 阅读全文

posted @ 2022-01-18 11:08 乐_天涯阅读(354) 评论(0) 推荐(0)