返回列表 上一主題 發帖

如何判斷為同一組

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

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-7-31 13:51 | 顯示全部帖子
本帖最後由 a5007185 於 2018-7-31 13:53 編輯

回復 1# s7659109

我是用VBA處理的，
請參考以下程式碼。
  1. Sub NumberCode()
  2.     Dim i%, Str$, ArrStr$
  3.     i = 2
  4.     ArrStr = "" '清空已記錄到的條件
  5.     Do Until Range("C" & i) = ""
  6.         '將A欄、B欄、D欄合併為一個字串作為條件
  7.         Str = Range("A" & i) & Range("B" & i) & Range("D" & i)
  8.         '若該條件未記錄過，則記錄之。
  9.         If InStr("," & ArrStr & ",", "," & Str & ",") = 0 Then ArrStr = ArrStr & "," & Str
  10.         '撈出Str在陣列ArrStr中的索引值
  11.         Range("F" & i) = "No. " & UBound(Split(Split(ArrStr, Str)(0), ","))
  12.         i = i + 1
  13.     Loop
  14. 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 22:45 | 顯示全部帖子
回復 12# s7659109

如果是上百萬的，
我想如果是透過Excel還是需要一點時間，
我不太清楚你原始資料上百萬筆是什麼樣的狀況，
但是我將你原本的範例用自動填滿至Excel最大行數 1,048,576，
試著運作的結果大致上花了快兩分鐘的時間，
我想如果還需要減少運作時間，
可能你需要考慮其他語言的協助，
這樣可能對於你來講比較實用。

另外我想確定一下你附檔的用意，
我不太清楚你想表達的是什麼，
我不知道這和你原本的問題有什麼關聯性。

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題