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

[chungyuandye (養花種魚數月亮賞星星)]

※ 引述《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大！