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