12
返回列表 上一主題 發帖

[發問] 求助

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2024-11-15 
11# 跳轉到 »
發表於 2013-1-18 22:59 | 只看該作者
回復 10# yanto913
條件說的不清楚,抱歉
一.成品如a,b項,在第九碼各為L,R(其餘均為相同)視為相同,只需選a項,其餘符合第二項均選
三.零件如f,g項在為12碼各為L,R(其餘均為相同)視為相同,只需選f項目,其餘符合第四項均選

TOP

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
12#
發表於 2013-1-18 23:04 | 只看該作者
改成不等於"R"

20130118.rar (85.68 KB)

YOYO

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
13#
發表於 2013-1-18 23:05 | 只看該作者
本帖最後由 stillfish00 於 2013-1-18 23:06 編輯

回復 11# aa7551
這樣判斷你看結果符不符合
  1. Sub test()
  2. Dim ar, s, ss, d1, d2
  3. Set d1 = CreateObject("scripting.dictionary")
  4. Set d2 = CreateObject("scripting.dictionary")

  6. With Sheets(1)
  7.     ar = .Range(.[a2], .[a2].End(xlDown)).Value
  8.     For Each s In ar
  9.         '成品
  10.         If s Like "???-????L*" Then
  11.             d1.Item(s) = ""
  12.             ss = Left(s, 8) & "R" & Mid(s, 10)
  13.             If d1.exists(ss) Then d1.Remove (ss)
  14.         End If
  15.         If s Like "???-????R*" Then '非成對保留
  16.             If Not d1.exists(Left(s, 8) & "L" & Mid(s, 10)) Then d1.Item(s) = ""
  17.         End If
  18.         
  19.         '零件
  20.         If s Like "??????-????L*" Then
  21.             d2.Item(s) = ""
  22.             ss = Left(s, 11) & "R" & Mid(s, 13)
  23.             If d2.exists(ss) Then d2.Remove (ss)
  24.         End If
  25.         If s Like "??????-????R*" Then '非成對保留
  26.             If Not d2.exists(Left(s, 11) & "L" & Mid(s, 13)) Then d2.Item(s) = ""
  27.         End If
  28.     Next
  29.     .[k2].Resize(d1.Count) = Application.Transpose(d1.keys)
  30.     .[n2].Resize(d2.Count) = Application.Transpose(d2.keys)
  31. End With
  32. Set d1 = Nothing: Set d2 = Nothing
  33. End Sub
複製代碼

TOP

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2024-11-15 
14#
發表於 2013-1-18 23:18 | 只看該作者
回復 13# stillfish00
115-1926L-A
132-1905L-LD-U
211-1946L-A
211-1946L-A-S        這些不符合條件,成品的第五,六碼要等於11,17,20,25,37

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
15#
發表於 2013-1-18 23:26 | 只看該作者
回復 9# aa7551

規則如果能確定，用進階篩選也是不錯的方法

    進階篩選.rar (131.14 KB)
學海無涯_不恥下問

TOP

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2024-11-15 
16#
發表於 2013-1-18 23:32 | 只看該作者
回復 12# yanto913
謝謝大大的指教,我先說明自己的手動作法,先把LR配對放在一起,確認有配對,再檢查是否符合成品11,20或零件11,17,20,25,37,如有符合,則刪去R

TOP

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2024-11-15 
17#
發表於 2013-1-18 23:44 | 只看該作者
回復 15# Hsieh
謝謝大大指教,提供一個新方式

TOP

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2024-11-15 
18#
發表於 2013-1-19 00:07 | 只看該作者
筆者作業模式是逐筆刪除:
一.成品第五,六碼是否符合11,17,20,25,37,如不符合即刪除,再將第九碼是L,R配對(其餘碼是相同者,如112-1104L-LD,112-1104R-LD)放在一起,配對成功,刪去R(112-1104R-LD),如無配對,則保留
二.零件第八,九碼是否符合11,20,如不符合即刪除,再將第十二碼是L,R配對(其餘碼是相同者,如00#440-1126LEND,00#440-1126REND)放在一起,配對成功,刪去R(00#440-1126REND),如無配對,則保留

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
19#
發表於 2013-1-19 00:21 | 只看該作者
回復 18# aa7551
  1. Sub test()
  2. Dim ar, s5s6, s8s9, s, d1, d2
  3. Set d1 = CreateObject("scripting.dictionary")
  4. Set d2 = CreateObject("scripting.dictionary")

  6. With Sheets(1)
  7.     ar = .Range(.[a2], .[a2].End(xlDown)).Value
  8.     For Each s In ar
  9.         s5s6 = Mid(s, 5, 2)
  10.         If Mid(s, 4, 1) = "-" And (s5s6 = "11" Or s5s6 = "17" Or s5s6 = "20" Or s5s6 = "25" Or s5s6 = "37") Then d1.Item(s) = ""
  11.             
  12.         s8s9 = Mid(s, 8, 2)
  13.         If Mid(s, 7, 1) = "-" And (s8s9 = "11" Or s8s9 = "20") Then d2.Item(s) = ""
  14.     Next
  15.     For Each s In d1.keys
  16.         If Mid(s, 9, 1) = "R" And d1.exists(Left(s, 8) & "L" & Mid(s, 10)) Then
  17.             d1.Remove (s)
  18.         End If
  19.     Next
  20.     For Each s In d2.keys
  21.         If Mid(s, 12, 1) = "R" And d2.exists(Left(s, 11) & "L" & Mid(s, 13)) Then
  22.             d2.Remove (s)
  23.         End If
  24.     Next
  25.    
  26.     .[k2].Resize(d1.Count) = Application.Transpose(d1.keys)
  27.     .[n2].Resize(d2.Count) = Application.Transpose(d2.keys)
  28. End With
  29. Set d1 = Nothing: Set d2 = Nothing
  30. End Sub
複製代碼

TOP

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2024-11-15 
20#
發表於 2013-1-19 00:43 | 只看該作者
回復 19# stillfish00
謝謝大大指教,應是正確解答

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
12
返回列表 上一主題