標題: [發問] 請教應如何將編號按規則自動合併取得表述結果? [打印本頁]

---

作者: sujane0701    時間: 2019-5-9 04:11     標題: 請教應如何將編號按規則自動合併取得表述結果?

[attach]30550[/attach]
問題如附件檔所示,請教應如何取得表述結果?

---

作者: 准提部林    時間: 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)))  
下拉即可

=====

---

作者: sujane0701    時間: 2019-5-16 06:01

回復 2# 准提部林


    太好用了,非常感謝版主出手相助,感恩~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)