EXCEL自動排序VBA代碼

Sub單列自動排序()'a為需要排序的數(shù)組，up為True則為升序排列，為False，貝V為降序排列。DimupAsBooleanDimranktypeAsStringDimiAsInteger,jAsIntegerDimtempAsDouble,temp1AsIntegerDima(1000,3)AsDouble'a數(shù)組定義大小要超過排序數(shù)，此處是按排序數(shù)在1000個以內(nèi)定義t1^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Txcolnum=1'排序數(shù)據(jù)列rankcolnum=2'排序碼列startrow=5'排序數(shù)據(jù)起始行號endrow=135'排序數(shù)據(jù)末尾行號ranktype="降序"'排序方式，“升序”或“降序”Ifranktype="升序"Thenup=TrueElseup=FalseEndIfFori=1Toendrow-startrow+1a(i,0)=Val(ActiveSheet.Cells(startrow+i-1,colnum))a(i,1)=startrow+i-1a(i,2)=0Nextt*1**1**1**1**1**1**1**1**1**1**1**1**1**1**1**1**1**1**1**1**1*1^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^TxFori=1Toendrow-startrow'進行n-1輪比較Forj=endrow-startrow+1Toi+1Step-1從'n到i個元素兩兩進行比較IfupThen'判斷升降序Ifa(j,0)<a(j-1,0)Thentemp=a(j,0)temp1=a(j,1)a(j,0)=a(j-1,0)a(j,1)=a(j-1,1)a(j-1,0)=tempa(j-1,1)=temp1EndIfElseIfa(j,0)>a(j-1,0)Thentemp=a(j,0)temp1=a(j,1)a(j,0)=a(j-1,0)a(j,1)=a(j-1,1)a(j-1,0)=tempa(j-1,1)=temp1EndIfEndIfNextjNextiFori=1Toendrow-startrow+1a(i,2)=iNextFori=2Toendrow-startrow+1Ifa(i,0)=a(i-1,0)Thena(i,2)=a(i-1,2)EndIfNextFori=1Toendrow-startrow+1ActiveSheet.Cells(a(i,1),rankcolnum)=a(i,2)NextEndSub'數(shù)據(jù)自動排序(單列間隔)Sub自動排序1()'a為需要排序的數(shù)組，up為True則為升序排列，為False，則為降序排列。DimupAsBooleanup=FalseDimiAsInteger,jAsIntegerDimtempAsDouble,temp1AsIntegerForcolnum=1To9'9為需要排序的數(shù)據(jù)列數(shù)Dima(100,3)AsDoublet1^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Txstartrow=3'排序數(shù)據(jù)起始行號endrow=20'排序數(shù)據(jù)末尾行號Fori=1Toendrow-startrow+1a(i,0)=Val(ActiveSheet.Cells(startrow+i-1,(colnum-1)*2+4))a(i,1)=startrow+i-1a(i,2)=0Nextt1^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^Tx^TxFori=1Toendrow-startrow'進行n-1輪比較Forj=endrow-startrow+1Toi+1Step-1從'n到i個元素兩兩進行比較IfupThen'判斷升降序Ifa(j,0)<a(j-1,0)Thentemp=a(j,0)temp1=a(j,1)a(j,0)=a(j-1,0)a(j,1)=a(j-1,1)a(j-1,0)=tempa(j-1,1)=temp1EndIfElseIfa(j,0)>a(j-1,0)Thentemp=a(j,0)temp1=a(j,1)a(j,0)=a(j-1,0)a(j,1)=a(j-1,1)a(j-1,0)=tempa(j-1,1)=temp1EndIfEndIfNextjNextiFori=1Toendrow-startrow+1a(i,2)=iNextFori=2Toendrow-startrow+1Ifa(i,0)=a(i-1,0)Thena(i,2