准提部林

若資料不多可參考公式：
=IF(D3="","",LEFT(D3,FIND("-",D3))&CHAR(64+INT(COUNTIF(D$2:D2,LEFT(D3,FIND("-",D3))&"*")/4)+1))

准提部林

回復 7# sheau-lan


請提供較完整的參考資料及檔案, 並詳細說明操作流程及需求,
而不是只有程式碼, 也許可以從程式碼解讀, 但很花時間也容易誤判!

另．公式可以做到的話, 為何一定要用VBA？？？

准提部林

回復 9# sheau-lan

１．〔品號〕固定四碼（英數混合〕？都由上而下逐一輸入？
２．有無可能輸入後又更改，造成〔存放編號〕須由上而下再重新編號？

先用公式處理，〔存放編號〕會自動以最新的狀態編碼，看是否如所需，若非得用vba，再說：
Xl0000111v01.rar (85.38 KB)

下載次數: 4

2015-9-21 18:23

准提部林

回復 11# sheau-lan


所以，才會強調〔操作流程〕～～是否如下：
１．當輸入第１筆 M12 時，產生 M12-A ，印好標籤就貼在樣品上面，以後不可能再更改
２．當輸入第２～３筆時，也是 M12-A，同步驟１
３．當輸入第４筆時，因外型特殊，手動編碼（不知是何種型式，可提供例子嗎？），同樣貼好歸位永不變動
４．當輸入第５筆，因還有一個位置，所以是 M12-A
５．往後陸續增加的相同規格，，則按此規則，依Ｂ～？？編碼下去
６．所有上方已輸入者，不可能再變動？例如：已有１０筆編好的資料，忽然去更改第７筆？

准提部林

回復 13# sheau-lan

提供〔公式〕與〔VBA〕兩種：
Xl0000111v02.rar (89.85 KB)

下載次數: 12

2015-9-22 15:29

　

准提部林

回復 15# sheau-lan


Ｇ欄是 TARGET 的 .CELLS(1,7)
xF是找到的儲存格，看要取這格相同列的哪一欄：xF.Cells(1, 左或右位移量)
.Cells(1, 7) = xF(1, ??)

准提部林

回復 18# sheau-lan

比對改如下：
For Each R In Arr
　　If Left(R, N) = TT And Right(R, 1) Like "[A-Z]" Then U = U + 1
Next

忽略了 "#" 在 Like 會視為〔0-9〕，所以無法正確比對！