返回列表 上一主題 發帖

[發問] 依訂單_標示客戶

回復 10# 軒云熊
今天使用時正好發現有問題,真是及時雨,感謝!

TOP

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

TOP

回復 12# 准提部林

謝謝準大的提點 這個邏輯更清楚 先收下了
:)

TOP

        靜思自在 : 人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
返回列表 上一主題