作者:乔山办公网日期:
返回目录:excel表格制作
a$="D"
i=145
Range("A1:" & a$ & i).Sort Key1:=Range("C1")
哦你这句拼错了
Order1:=xlDscending
改成这样
Order1:=xlDescending
1、带参数名引用,如: key1:=Range("G3")
2、 参数位置引用,即按照上述Sort命令的参数顺序直接应用,
如: Range("A1:I19").Sort key1:=Range("G3") 即第1位置参数即为key1
3、Order1、Order2、Order3
这些Order是排序的顺序模式指定参数。即: A-Z升序、或Z-A降序
参数的模式名称为:
A-Z升序= xlAscending 或直接=1
Z-A降序= xlDescending 或直接=2
带参数名引用时:
Order1:=xlAscending 或 Order1:= 1
参数位置引用时,紧跟key后面。(但注意key2和Order2之间要隔一个Type参数)
4、Header
即是否有标题行参数,一共有3个值7a686964616fe59b9ee7ad94331:
Header:= xlGuess=0 或xlYes=1 或 xlNo=2
即=xlGuess、或=0时,工作表自己判断
=xlYes、或=1时,强制第1行为列标题,即第1行【不参与排序】
=xlNo、或=2时,强制没有列标题。即第1行【也参与排序】
带参数名引用时:
如: Header:= xlGuess
参数位置引用时,在第7个逗号之后。
(如果key只有1个时,要连续空6个逗号,
如:Range("A1:I19").Sort Range("A1"), 1, , , , , , 2 (order1之后连续写6个逗号)
5、MatchCase 是否匹配大小写
MatchCase:=False 、或=0 不区分大小写
MatchCase:=True 、或=1 区分大小写(Case Sensitive)
6、Orientation 排序方向
一般为同一列中从上到下各行进行排序:Orientation:= xlTopToBottom 、或=1
如果是: 同一行中从左到右各列进行排序,则为:Orientation:= xlLeftToRight、或=2
7、SortMethod 排序方法
按拼音排序: SortMethod:= xlPinYin 、或=1 (Use phonetic info)
按笔画排序: SortMethod:= xlStroke、或=2
8、 DataOption1 按数值或按文本排序
DataOption1:= xlSortNormal
9、以上综合示例为: 按参数名引用:
Range("A1:I19").Sort key1:=Range("G3"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
DataOption1:=xlSortNormal
直接按参数位置:
Range("A1:I19").Sort [G3], 1, , , , , ,0, 1, 0, 1, 1,1
或根据默认为:Range("A1:I19").Sort [G3], 1
第一句和最后一句是程序外壳给这段程序起个名,没有实际意义
以单引号开头百的代码是注释,没有实际意义
第一段Dim是定义变量,定义成整型,没有实际意义
Application.ScreenUpdating = False
'让屏幕停止刷新
For iCounter = 2 To 55
Cells(iCounter, 3) = Cells(iCounter, 1).Interior.ColorIndex
Next
'For循环度,给Dim定义的变量循环赋值,在C列的第2到第55单元格专分别返回A列第2到第55单元格的内部填充颜色序号
Range("C1") = "Index"
'C1单元格显示文本"Index"
Columns("A:C").Sort key1:=Range("C2"), order1:=xlAscending, header:=xlYes
'A到C列排序,后属面那一串都是录制的关键字是C2,顺序排列,有标题
Columns(3).ClearContents
'清除C列内容
Application.ScreenUpdating = True
'屏幕恢复刷新