2022年1月18日
摘要：
'删除后面多余的列指定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
乐_天涯
阅读(657)
评论(0)
推荐(0)
摘要：
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
乐_天涯
阅读(352)
评论(0)
推荐(0)
浙公网安备 33010602011771号