- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2026-5-26
|
回復 1# PJChen
請測試看看，謝謝
Sub test()
Dim Arr, i&, n
Arr = Range([c1], [c65536].End(3))
For i = 2 To UBound(Arr)
If UCase(Left(Arr(i, 1), 1)) = "C" Then n = 1: GoTo 99
Arr(i, 1) = Mid(Arr(i, 1), Len(n) + 1): n = n + 1
99: Next
Range("c1").Resize(UBound(Arr)) = Arr
End Sub |
|
發表於 2021-9-4 08:33
| 