返回列表 上一主題 發帖

較複雜的重新排序

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-7-19 14:54 | 只看該作者

較複雜的重新排序

這次是較複雜的重新排序
首先，先感謝在上一帖協助的各位
現在碰到一個更麻煩的排序(先前那個應該算是以2重排)
這次的有可能是9、12、15
需求一樣，先將總行數除以總數，並重新排列
以15為例，總數假定為75 (其實大概是幾百到一千，太多我不好做範例)
原本的順序應該是1~75
新的排列，我直接用excel打出來應該長這樣
圖1

1張A4紙上面可以印15格，但他是3*5 然後照順序印出
但這15格要撕開來，就會變成不照順序了(要一張一張排)

我希望的是讓他變成這樣
圖2


所以新排列應該是 (詳見附件的D欄)
1
6
11
16
21
26
31
36
41
46
51
56
61
66
71

這樣我就可以在原始資料做一個輔助列，先將用1~75排列(這個數其實不固定)
然後再加一個第二輔助列，並用第二輔助列做重新排序
以達到將原本的圖1順序改成圖2的目的


可以的話，做出來的表格有一個欄位讓我填變數的數量(A4紙要裁成9格、12格、15格)
不能的話先有15格的版本也好
感謝您的協助 m(_ _)m

附件
排序需求.rar (3.15 KB)
收藏 分享

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
9#
發表於 2018-7-29 11:37 | 只看該作者
回復 8# wei9133


我居然會犯這種低級錯誤，
覺得好羞恥唷~  QQ


我有修改好成你希望的方式回覆在你最新的主題當中，
請小心食用。

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
8#
發表於 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. =工作表1!E2
  2. =工作表1!F2
  3. =工作表1!G2
  4. =工作表1!H2
  5. =工作表1!I2
  6. =工作表1!E3
  7. =工作表1!F3
  8. =工作表1!G3
  9. =工作表1!H3
  10. =工作表1!I3
  11. =工作表1!E4
  12. =工作表1!F4
  13. =工作表1!G4
  14. =工作表1!H4
  15. =工作表1!I4
  16. =工作表1!E6
  17. =工作表1!F6
  18. =工作表1!G6
  19. =工作表1!H6
  20. =工作表1!I6
  21. =工作表1!E7
  22. =工作表1!F7
  23. =工作表1!G7
  24. =工作表1!H7
  25. =工作表1!I7
  26. =工作表1!E8
  27. =工作表1!F8
  28. =工作表1!G8
  29. =工作表1!H8
  30. =工作表1!I8
  31. =工作表1!E10
  32. =工作表1!F10
  33. =工作表1!G10
  34. =工作表1!H10
  35. =工作表1!I10
  36. =工作表1!E11
  37. =工作表1!F11
  38. =工作表1!G11
  39. =工作表1!H11
  40. =工作表1!I11
  41. =工作表1!E12
  42. =工作表1!F12
  43. =工作表1!G12
  44. =工作表1!H12
  45. =工作表1!I12
複製代碼
順序也就是 (?依欄數而定)
第一個表格的第一層E~?
第二個表格的第一層E~?
最後的表格的第一層E~?

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

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

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

麻煩你了!!

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
7#
發表於 2018-7-29 02:03 | 只看該作者
你好，首先感謝你提供的方法
按下去結果是對的，不過我貼了上面那個格子圖真的是敗筆
(題外話，你的列數跟欄數實際出來的陣列多一)

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

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

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

m(_ _)m 感謝你

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2018-7-26 16:55 | 只看該作者
回復 5# wei9133


你好，
我是利用VBA的方式產生表格，
你看看這樣的設計是否有符合你的需求 : )
表格排序 (2).zip (17.66 KB)
  1. Sub CreateForm()
  2.     Dim C&, i%, iStart%, iEnd%, J%, jStart%, jEnd%, P%, PEnd%
  3.     Range(Cells(1, 5), Cells(Cells.Rows.Count, Cells.Columns.Count)).Clear
  4.     PEnd = Range("C5") - 1
  5.     For P = 0 To PEnd
  6.         If Range("C2") = "" Then
  7.             C = 1 + P
  8.         Else
  9.             C = Range("C2") + P
  10.         End If
  11.         iStart = 2 + P * (Range("C3") + 2)
  12.         iEnd = iStart + Range("C3")
  13.         jStart = 5
  14.         jEnd = jStart + Range("C4")
  15.         For i = iStart To iEnd
  16.             For J = jStart To jEnd
  17.                 Cells(i, J) = C
  18.                 C = C + Range("C5")
  19.             Next
  20.         Next
  21.         SetFormat Range(Cells(iStart, jStart), Cells(iEnd, jEnd))
  22.     Next
  23. End Sub

  25. Sub SetFormat(R As Range)
  26.     With R
  27.         .HorizontalAlignment = xlCenter
  28.         .VerticalAlignment = xlCenter
  29.         .Borders(xlDiagonalDown).LineStyle = xlNone
  30.         .Borders(xlDiagonalUp).LineStyle = xlNone
  31.         .Borders(xlEdgeLeft).LineStyle = xlContinuous
  32.         .Borders(xlEdgeTop).LineStyle = xlContinuous
  33.         .Borders(xlEdgeBottom).LineStyle = xlContinuous
  34.         .Borders(xlEdgeRight).LineStyle = xlContinuous
  35.         .Borders(xlInsideVertical).LineStyle = xlContinuous
  36.         .Borders(xlInsideHorizontal).LineStyle = xlContinuous
  37.     End With
  38. End Sub
複製代碼

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
5#
發表於 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
所以請不要管那個看起來像陣列的東西

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



感謝各位花時間觀看

TOP

hcm19522

帖子
1804 
主題
188 
精華
0 
積分
1997 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
100 
性別
男 
註冊時間
2015-9-11 
最後登錄
2026-10-12 

熱烈參與勳章
4#
發表於 2018-7-20 09:50 | 只看該作者
回復 3# wei9133

{=INDIRECT(TEXT(SMALL(IF(M$1:Q$19>0,COLUMN(M$1:Q$19)+ROW(M$1:Q$19)/1%),ROW(A1)),"!R0C00"),)
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
3#
發表於 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是我不會算只好一格一格填出來的...

TOP

hcm19522

帖子
1804 
主題
188 
精華
0 
積分
1997 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
100 
性別
男 
註冊時間
2015-9-11 
最後登錄
2026-10-12 

熱烈參與勳章
2#
發表於 2018-7-19 17:29 | 只看該作者
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
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題