如何从小到大

【Excel，在表格中如何把两列数字从小到大排列】

两列排序在标准功能中是没有的。只能用万能的VBA来完成。

举例说明。例如有一数字序列在A1：A50，需要排序后输出在C1：D25中。程序大致分成以下几个步骤：1、读取数据到数组；2、对数组排序；3、将数组数据分两列输出到C1：D25中。代码如下：

Sub两列排序()

'读取数据

DimmYarr(1To100)

DimI,J,K,LAsInteger

DimSSAsDouble

I=1

DoWhileCells(I,1)<>""

mYarr(I)=Cells(I,1)

I=I+1

Loop

I=I-1'I记录数据的个数

'排序从小到大

ForJ=1ToI-1

??ForK=JToI

????IfmYarr(J)>mYarr(K)Then

?????SS=mYarr(J)

?????mYarr(J)=mYarr(K)

?????mYarr(K)=SS

????EndIf

???NextK

NextJ

'按两列输出

J=1:L=1

DoWhileJ<I

??ForK=1To2

???Cells(L,2+K)=mYarr(J)

???J=J+1

??NextK

??L=L+1

Loop

EndSub

运行结果如图：

【如何从小做到大拜托了各位谢谢】

所有做成大事的，都是有高尚品德的，乐于助人的，在无形中形成强大人脉，对日后的发展会有很大好处但是做大事的人，头脑是清醒的，不是和他们都交朋友，要看清对方对自己的价值再就是要坚持，善待身边人，尽管他是给你店里跑腿的人，人是感情动物，时间久就会有人死心踏地跟你，这样你再扩展事业就有也基础

如何从小到大相关文章：