- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-6-9
|
12#
發表於 2021-2-13 10:54
| 只看該作者
Sub TEST()
Dim Arr, i&, T$, N&
Arr = Range([e1], [c65536].End(xlUp)) '以C欄檢查最後一筆
T = [a1] 'A1名稱文字
For i = 2 To UBound(Arr)
If Arr(i, 3) Like "[A-z]*#*" Then N = N + 1 'E欄帶有[英文+數字], 累加1
Arr(i - 1, 1) = T & IIf(N > 1, N, "") '名稱+序號(N>=2)
Next i
[B2].Resize(UBound(Arr) - 1) = Arr
End Sub |
|