較複雜的重新排序

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

2^#

發表於 2018-7-20 00:01 | 顯示全部帖子

本帖最後由 wei9133 於 2018-7-20 00:03 編輯

G1:K4=IF(MOD(ROW(A1),4)=0,"",(MOD(ROW(A1),4)-1)*5+INT(ROW(A1)/4)*15+COLUMN(A1))

G1:K4複製到G5:K20
hcm19522 發表於 2018-7-19 17:29

不好意思，看樣子是我沒講清楚
我需要的最後結果應該是這張圖

原帖的圖1跟圖2是實際印出來的效果(實際印製成是吃的是文字檔，並逐行獲取，所以我希望用excel先做重新排序，以達圖2效果)
圖1圖2是我不會算只好一格一格填出來的...

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

3^#

發表於 2018-7-21 00:59 | 顯示全部帖子

回復 wei9133

{=INDIRECT(TEXT(SMALL(IF(M$1$19>0,COLUMN(M$1$19)+ROW(M$1$19)/1%),ROW(A1)),"! ...
hcm19522 發表於 2018-7-20 09:50

你好，依照你給的公式丟進去是沒有反應或錯誤的，是我哪裡弄錯?

另外，重點不是那個陣列，是這個

要對原本順序是1~????做重新排序 (這裡先假設為75)
在這裡是以15格為準重新排

讓整疊紙撕出來的第一格位置變成依序
假設有5張紙疊在一起撕第一格的位置會是1~5，第二格會是6~10
這個部分才是要排續的重點，照原本的輸出序列第一格會是1,16,31,46,61
所以請不要管那個看起來像陣列的東西

假如看不懂我的續述的話，就考慮如何讓公式符合這張幾圖吧

感謝各位花時間觀看

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

4^#

發表於 2018-7-29 02:03 | 顯示全部帖子

你好，首先感謝你提供的方法
按下去結果是對的，不過我貼了上面那個格子圖真的是敗筆
(題外話，你的列數跟欄數實際出來的陣列多一)

因為那個是匯入程式後後因出來的效果
實際上我需要的是重新排序在同一欄中

也就是先計算總共有幾列
然後除以需求變數目前可能為(9、12、15)
然後重新排列
鑒於大家都只看首樓，所以我重發了一個帖子
[url=http://forum.twbts.com/viewthread.php?tid=20994&extra=]超鍊結[\url]
若閣下有解法還請移駕賜教

p.s.多虧你這個陣列，要不然我那個提問的數字排序就夠我嗆的了

m(_ _)m 感謝你

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

5^#

發表於 2018-7-29 02:43 | 顯示全部帖子

你好，VBA的部分能否幫我增加總數欄位
表格數與總數擇1選用(可設定優先全為表格)
而總數的部分數字除以欄*列
也就是說若總數為1234 列=3 欄=5 (須先修改原本vba欄列各多1的問題)
表格數就是 =1234/(3*5)
出來的值是82.26667，無條件進位為83
這樣我只要填入總數就不用算總共幾個表格了

然後還需要將值複製到新的欄或新的活頁簿 (這裡可以直接排在D欄)
目前我用的方法是先土法煉鋼的用"=工作表1!E2" (可以看一下附件sheet1的部分)
但多了弄不起來，且無法隨著陣列變更(只能固定3*5)

樣子大概像這樣

=工作表1!E2
=工作表1!F2
=工作表1!G2
=工作表1!H2
=工作表1!I2
=工作表1!E3
=工作表1!F3
=工作表1!G3
=工作表1!H3
=工作表1!I3
=工作表1!E4
=工作表1!F4
=工作表1!G4
=工作表1!H4
=工作表1!I4
=工作表1!E6
=工作表1!F6
=工作表1!G6
=工作表1!H6
=工作表1!I6
=工作表1!E7
=工作表1!F7
=工作表1!G7
=工作表1!H7
=工作表1!I7
=工作表1!E8
=工作表1!F8
=工作表1!G8
=工作表1!H8
=工作表1!I8
=工作表1!E10
=工作表1!F10
=工作表1!G10
=工作表1!H10
=工作表1!I10
=工作表1!E11
=工作表1!F11
=工作表1!G11
=工作表1!H11
=工作表1!I11
=工作表1!E12
=工作表1!F12
=工作表1!G12
=工作表1!H12
=工作表1!I12

複製代碼

順序也就是 (?依欄數而定)
第一個表格的第一層E~?
第二個表格的第一層E~?
最後的表格的第一層E~?

第一個表格的第二層E~?
第二個表格的第二層E~?
最後的表格的第二層E~?

第一個表格的最下層E~?
第二個表格的最下層E~?
最後的表格的最下層E~?

附件我有先把值放在D欄並以紅色標注，不過因為vba本身按下執行後會重製，所以我基本是用sheet1中的部分
放到主頁面是方便你理解。

表格排序.rar (25.62 KB)

麻煩你了!!