帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-7-31 11:40 | 只看該作者

如何判斷為同一組

請問，如何依A,B及D欄為條件，判斷是否為同一組？

活頁簿1.zip (8.66 KB)

樓主熱帖

希望支持!

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

15^#

發表於 2018-8-2 07:30 | 只看該作者

也謝謝邏輯大大。

希望支持!

TOP

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

14^#

發表於 2018-8-2 07:29 | 只看該作者

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

希望支持!

TOP

a5007185

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

中學生 Rank: 2

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

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

13^#

發表於 2018-8-1 22:45 | 只看該作者

回復 12# s7659109

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

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

TOP

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

12^#

發表於 2018-8-1 09:09 | 只看該作者

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

0801.zip (109.57 KB)

希望支持!

TOP

faye59

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

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

11^#

發表於 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