Excel VBA程序缩写,谢谢
Excel VBA程序缩写,谢谢
日期：2021-05-28 19:06:54 人气：1
Sub 排序()
riqi = InputBox("请输入日期")
c = riqi * 50 - 47
r = riqi * 50 + 2
Range("C" & c & ":R" & r).Select
Selection.Sort Key1:=Range("C" & c), Order1:=xlDescending, Header:=xlGues
riqi = InputBox("请输入日期")
c = riqi * 50 - 47
r = riqi * 50 + 2
Range("C" & c & ":R" & r).Select
Selection.Sort Key1:=Range("C" & c), Order1:=xlDescending, Header:=xlGues