計算總數並重新排序 - Excelㄧ般區

a5007185

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2018-7-29 11:34 | 顯示全部帖子

回復 1# wei9133

哈，
如果按照你現在僅列出單行的方式，
你也可以參考看看這個~

排序.rar (15.63 KB)

Option Explicit
Sub PrintList()
Dim PT As Range
Dim i%, iM%, j%, jM%
Call Reset
iM = Range("C2")
jM = Range("C3")
Set PT = Range("E3")
For j = 1 To jM
For i = 1 To iM
PT = j + (i - 1) * jM
Set PT = PT.Offset(1)
Next
Next
Range("C4") = iM * jM
End Sub
Sub Reset()
Dim PT As Range
Set PT = Cells(Cells.Rows.Count, 5).End(xlUp)
If PT.Row = 2 Then Set PT = Range("E3")
Range("E3:E" & PT.Row).ClearContents
Range("C4").ClearContents
End Sub

複製代碼

TOP

a5007185

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-8-1 23:05 | 顯示全部帖子

排序.rar (30.38 KB) 回復 4# wei9133

函數如果改成這樣呢？
有符合你的需求嗎？
還是你必須要由另一個數列進行置換？

TOP

a5007185

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2018-8-1 23:20 | 顯示全部帖子

本帖最後由 a5007185 於 2018-8-1 23:22 編輯

想釐清一個問題，

如果總數是428，
則理論上429~435都是空值，
而且會集中在第15落那個集落中。

依據你提出的條件，
應該是第8至15的集合各缺少一個元素吧？
因為你排列是十五個集合分開分配的。

另外如果需要連整列複製這個都做起來是可行的。

TOP

a5007185

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2018-8-1 23:44 | 顯示全部帖子

回復 6# wei9133

抱歉，
我自己實際調整過後，
有了解你的問題了。

我調整好兩個版本給你參考，
一個是用函數的方式，(公式套用到第4000不夠可以自己繼續拉)
另一個是用VBA的方式。

排序.rar (49.15 KB)

TOP

a5007185

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2018-8-5 00:13 | 顯示全部帖子

回復 13# wei9133

弄好囉

180804_表格排序.rar (27.42 KB)

TOP

a5007185

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2018-8-7 11:32 | 顯示全部帖子

回復 17# wei9133

再不行，我們私下喬

表格排序.zip (87.43 KB)

TOP

a5007185

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

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2018-8-8 13:44 | 顯示全部帖子

我只能說當文字說明已經無法構成有效溝通的時候，
請嘗試其他表示需求的方法，e.g,電話或整個操作過程截圖

我一直到現在才知道我列出來的數字只是個引子，
如果你有注意我的結果中第九行的資料是33，
剛好對應你第三十三行的資料是9，
請盡可能地以文字外的語言輔助說明，
要不然這樣花了這麼多時間我現在才搞懂你的需求，
我覺得這樣對雙方都很費時。

我有空我會再調整表格，
若之後再有問題，
請麻煩你私訊我你的Line。

TOP

a5007185