2010年6月14日 星期一

Re: [算表] Excel多欄排序的問題(已爬文)

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Office
標題: Re: [算表] Excel多欄排序的問題(已爬文)
時間: Thu Oct 23 22:36:31 2008

※ 引述《sangl (桑果)》之銘言:
: 軟體: Excel
: 版本: 2007
: 已搜索標題爬文,不過似乎沒看到類似的問題....
: 想請教一下,如果原始資料像是
: 欄 A B
: Data3 Data2
: Data1 Data5
: Data4
: 希望它排完之後變成
: 欄 A B
: Data1
: Data2
: Data3
: Data4
: Data5
: 不曉得有沒有人工比對兼手動剪下貼上以外的方法呢?
: 先謝謝大家的回答!

如果資料是數字的話

Sub Ptt()
ActiveSheet.Range("C:G").Delete
Dim Fn As Object
Set Fn = Application.WorksheetFunction
a = 2 '第一欄的列數
b = 3 '第二欄的列數
Dim x(1 To 5) As Single, y(1 To 5) As Integer '自己把a+b打上去,這邊是5
For i = 1 To a
x(i) = Cells(i, 1)
y(i) = 1
Next

For i = a + 1 To a + b
x(i) = Cells(i - a, 2)
y(i) = 2
Next

For j = 1 To a + b
Cells(j, 3) = y(j)
Cells(j, 4) = x(j)
Next

For k = 1 To a + b
Cells(k, 5) = Fn.Rank(Cells(k, 4), Range("D1:D" & a + b))
Next

For m = 1 To a
Cells(Cells(m, 5).Value, 6) = Cells(m, 4)
Next

For n = 1 To b
Cells(Cells(a + n, 5).Value, 7) = Cells(a + n, 4)
Next

End Sub


有點暴力的作法

--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.188.91
→ sangl:謝謝c大!  10/27 14:57

沒有留言:

張貼留言