- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-10-18
|
2#
發表於 2019-5-11 16:18
| 只看該作者
VBE一般模組貼入以下程式碼:
Function GetSerNo(Rng As Range) As String
Dim A, T0$, T$, T1$, V0, V1, V2, TT$
For Each A In Rng
If A = "" Then GoTo 101
T0 = Left(A, 2): V0 = Mid(A, 3)
If T0 <> T1 Or Val(V0) - Val(V2) <> 1 Then
T = T1 & V1 & IIf(V1 = V2, "", "~" & T1 & V2)
TT = Trim(TT & " " & T)
T1 = T0: V1 = V0: V2 = V0
Else
V2 = V0
End If
101: Next
TT = Trim(TT & " " & T1 & V1 & IIf(V1 = V2, "", "~" & T1 & V2))
GetSerNo = Replace(TT, " ", ",")
End Function
==============================
E2/公式:
=IF(C2="","",GetSerNo(OFFSET(A2,,,C2)))
下拉即可
===== |
|
發表於 2019-5-9 04:11
| 
