如何判斷為同一組 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何判斷為同一組

返回列表下一主題上一主題發帖

如何判斷為同一組

中學生 Rank: 2

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

6^# 跳轉到 »

發表於 2018-7-31 15:43 | 只看該作者

因原始資料有8000筆,希望以vba解決

希望支持!

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 2
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2026-6-21

5^#

發表於 2018-7-31 15:39 | 只看該作者

回復 1# s7659109

填入F2，其餘下拉

=IF(COUNTIFS($A$1:A1,A2,$B$1:B1,B2,$D$1:D1,D2)>0,LOOKUP(1,0/(($A$1:A1=A2)*($B$1:B1=B2)*($D$1:D1=D2)),$F$1:F1),"NO"&SUMPRODUCT(1/COUNTIF($F$1:F1,$F$1:F1)))

複製代碼

中學生 Rank: 2

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

4^#

發表於 2018-7-31 15:35 | 只看該作者

本帖最後由 s7659109 於 2018-7-31 15:37 編輯

問題:
條件:當a欄b欄及d欄一致時,才給同一編號,測試error

0731.zip (22.67 KB)

希望支持!

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

中學生 Rank: 2

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

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

3^#

發表於 2018-7-31 13:51 | 只看該作者

本帖最後由 a5007185 於 2018-7-31 13:53 編輯

回復 1# s7659109

我是用VBA處理的，
請參考以下程式碼。

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

複製代碼

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 195
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-11-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

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

回復 1# s7659109

根據附件我看不太懂@@

第2列、第12列、第13列為什麼都是NO1?

對於"同一組"有明確的定義嗎?

用功到世界末日那一天～～～

靜思自在 : 能幹不幹，不如苦幹實幹。

返回列表下一主題上一主題