討論群組

EXCEL VBA問題~~請各位高手幫忙

消防弟兄
個人積分：0分
文章編號：18742321

0分

樓主

2010-04-12 18:38

請各位vba高手幫忙解決問題
A2~A20為亂數
B2-B20也為亂數
要如何使C2~C20為A2~A20最大值為B2-B20的最小值
C2~C20為A2~A20最2大值為B2-B20的最2小值
以下類推
但假設最大值在A4的話要把值對應到C4
但假設最2大值在A3的話要把值對應到C3

舉例來說

(假設第一次排序為A3最大值,B6為最小值,然後C3會等於B6,然後A3和B6會被刪掉(流下空白欄))
(假設第二次排序為A6最大值,B10為最小值,然後C6會等於B10,然後A6和B10會被刪掉(流下空白欄))

以此類推把C欄全部填完

謝謝各位大大

2010-04-12 18:38 發佈

文章關鍵字 Excel VBA 問題高手

ptx

ptx
個人積分：1221分
文章編號：18786403

1221分

2樓

2010-04-14 12:45

我是不會用vba，不過可以用函數來做到接近的結果
但是也沒辦法做到自動將A與B欄的資料刪掉

我的做法是，在D欄位使用RANK函數取得A欄位同一列細格的排序，由大到小
同樣，在E欄位取得B欄位同一列細格的排序，但由小到大
最後回到C欄位，使用OFFSET與MATCH函數處理D與E欄的排序，
來取得B欄位的數值

C2欄位的函數：OFFSET($B$1,MATCH(D2,$E$2: $E$20,0),0)
D2欄位的函數：RANK(A2,$A$2: $A$20,0)
E2欄位的函數：RANK(B2,$B$2: $B$20,1)
再將這些函數複製到下面的儲存格就可以了

一個中文，各自表述

X

X