返回列表 上一主題 發帖

[發問] 如何去對應出總表中互相替代的品號(附件)

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2016-9-12 14:40 | 顯示全部帖子
本帖最後由 准提部林 於 2016-9-12 14:44 編輯

依替代邏輯, 以下是否為共同群組？
群組（１）
SBP525320  SBP525321
SBP636650  SBP636750
SBP636750  SBP800800
SBP636750  SBP735823
SBP800800  SBP824323
SBP800800  SBP170550
SBP824323  SBP821250
SBP824323  SBP525320
SBP800800  SBP636750
SBP636650  SBP800800
SBP735823  SBP800800
SBP525320  SBP824323
SBP525321  SBP525320
群組字串：
SBP636650／SBP636750／SBP800800／SBP735823／SBP824323／SBP170550／SBP821250／SBP525320／SBP525321

群組（２）
SBM511636／SBM532163／SBM312480／SBM511637／SBM51163F／SBM511670／SBM511660／SBM511671／SBM516250／SBM511672／SBM551621／SBM51163I／SBM503216／SBM516200／SBM151216

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2016-9-12 15:38 | 顯示全部帖子
為方便，將兩檔併為一檔：
Xl0000137.rar (51.29 KB)

程式碼對新手來說有點複雜，
沒時間，就不加註解，
替代邏輯若不符合原意，也沒時間再重寫！

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2016-9-13 11:33 | 顯示全部帖子
本帖最後由 准提部林 於 2016-9-13 11:49 編輯

回復 10# abc9gad2016


檢測一下資料，發現〔替代表〕C721 的 DN6818800 後面含有一個不可見字元及空白字元，
這會造成資料比對上的錯誤，須注意∼∼

以下程式碼可以試試看，清除ＢＣ欄空白字元及不可見字元（只針對AscW(160)）
Sub UURR()
[B:C].Replace ChrW(160), "", Lookat:=xlPart
[B:C].Replace " ", "", Lookat:=xlPart
End Sub

另外，替代群組若太多品項，造成字串太長，可能也會有比對出錯的問題，
我沒有去研究字典檔的key及item最多的字元限制（目前測過１０００個字元還可以）！！！

版上使用EXCEL的人，大部份是用到哪學到哪，有問題就是買些書．GOOGLE，或VBA內建說明檔找材料，
幾乎都是靠時間累積經驗的，這急不來∼∼

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題