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

複製代碼