暱稱: 阿佐 頭銜: 上班無聊打怪去
中學生
- 帖子
- 108
- 主題
- 1
- 精華
- 0
- 積分
- 113
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺灣
- 註冊時間
- 2017-9-7
- 最後登錄
- 2019-2-27
 
|
本帖最後由 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
|
|
發表於 2018-7-31 13:51
| 