Function NewOrder(sz,order) Dim ali,icount,i,ii,j,itemp ali=split(sz,",") icount= UBound(ali) For i=0 To icount. For j=icount - 1 To i Step -1. If j+1 ...
www.google.com.tw