如何判斷為同一組

　暱稱: 温奇
　頭銜: 議論者

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

1^# 跳轉到 »

發表於 2018-7-31 22:00 | 顯示全部帖子

回復 10# s7659109

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

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

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

Sub NumberCode()
Dim i%, Str$, ArrStr$
i = 2
ArrStr = "" '清空已記錄到的條件
Do Until Range("C" & i) = ""
'將A欄、B欄、D欄合併為一個字串作為條件
Str = Range("A" & i) & Range("B" & i) '& Range("D" & i)
'若該條件未記錄過，則記錄之。
If InStr("," & ArrStr & ",", "," & Str & ",") = 0 Then ArrStr = ArrStr & "," & Str
'撈出Str在陣列ArrStr中的索引值
Range("F" & i) = "No. " & UBound(Split(Split(ArrStr, Str)(0), ","))
i = i + 1
Loop
End Sub

複製代碼

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。