faye59

回復 10# s7659109

    以no1為例第2列至第12列都是同組,其中d欄cr(借方),dr(貸方),確實以:a欄b欄及d欄為判讀要件

參考你的附檔
1.同組標同一編號(條件為a:b:d相同)
2.希望結果(條件為a:b相同)
我的理解是這樣...
依照你的希望結果d欄位沒有參考的條件...
dr cr不管哪個都一樣歸類同組，
a與b成立就歸類同組了。

借3#大大程序修改，
這樣就跟你"希望結果"一樣了!?

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

複製代碼

s7659109

可以了,但如果超過百萬row,如何優化,加快速度,如附檔案

a5007185

回復 12# s7659109

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

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

s7659109

需要與vlookup搭配使用，謝謝你的幫忙。

s7659109

也謝謝邏輯大大。