两åæåºå¨æ ååè½ä¸æ¯æ²¡æçãåªè½ç¨ä¸è½çVBAæ¥å®æã
举ä¾è¯´æãä¾å¦æä¸æ°ååºåå¨A1ï¼A50ï¼éè¦æåºåè¾åºå¨C1ï¼D25ä¸ãç¨åºå¤§è´åæ以ä¸å 个æ¥éª¤ï¼1ã读åæ°æ®å°æ°ç»ï¼2ã对æ°ç»æåºï¼3ãå°æ°ç»æ°æ®å两åè¾åºå°C1ï¼D25ä¸ã代ç å¦ä¸ï¼
Sub 两åæåº()
'读åæ°æ®
Dim mYarr(1 To 100)
Dim I, J, K, L As Integer
Dim SS As Double
I = 1
Do While Cells(I, 1) <> ""
mYarr(I) = Cells(I, 1)
I = I + 1
Loop
I = I - 1 'I è®°å½æ°æ®ç个æ°
'æåº ä»å°å°å¤§
For J = 1 To I - 1
For K = J To I
If mYarr(J) > mYarr(K) Then
SS = mYarr(J)
mYarr(J) = mYarr(K)
mYarr(K) = SS
End If
Next K
Next J
'æ两åè¾åº
J = 1: L = 1
Do While J < I
For K = 1 To 2
Cells(L, 2 + K) = mYarr(J)
J = J + 1
Next K
L = L + 1
Loop
End Sub
è¿è¡ç»æå¦å¾ï¼