※ 引述《ZaiShenYeah (宅神爺)》之銘言：
: ※ 引述《bb7 (沒有暱稱)》之銘言：
: : (若是和其他不同軟體互動之問題 請記得一併填寫)
: : 您所使用的軟體為:Excel
: : 版本:2007
: : 問題: 今天有一筆資料,排序為隨機的排序
: : 假設今天排列如下:
: : A
: : 1 23
: : 2 45
: : 3 11
: : 4 9
: : 5 60
: : 6 19
: : 如果今天要A1跟A6對調,A2跟A5對調,A3跟A4對調
: : 請問有語法可以用嗎?
: 插入一欄，然後輸入1~6
: A B
: 1 1 23
: 2 2 45
: 3 3 11
: 4 4 9
: 5 5 60
: 6 6 19
: 選取資料範圍，利用排序的功能，以A欄為主要排序依據由大排到小
: A B
: 1 6 19
: 2 5 60
: 3 4 9
: 4 3 11
: 5 2 45
: 6 1 23
: 然後刪除A欄就大功告成拉
: A
: 1 19
: 2 60
: 3 9
: 4 11
: 5 45
: 6 23
Sub a()
Dim w(10, 10)
Q = 6 ' 你的儲存格有幾格
For x = 1 To Q
w(x, 1) = Cells(x, 1)
Next
For x = 1 To Q / 2
swap = w(x, 1)
w(x, 1) = w(Q + 1 - x, 1)
w(Q + 1 - x, 1) = swap
Next
For x = 1 To Q
Cells(x, 2) = w(x, 1)
Next
End Sub
參考範例下載
http://0rz.tw/1d35n
另外 有大大知道如何寫動態陣列嗎
畢竟宣告 w（10,10） 有點不太好用
想先寫成 Q ＝儲存格數
之後只要寫成 w（Q,Q）就好 可是有點忘記語法了
我記得.net 可以這樣用阿 還是我忘了語法了
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.105.127.111