ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±ÐÀ³¦p¦ó±N½s¸¹«ö³W«h¦Û°Ê¦X¨Ö¨ú±oªí­zµ²ªG?

[µo°Ý] ½Ð±ÐÀ³¦p¦ó±N½s¸¹«ö³W«h¦Û°Ê¦X¨Ö¨ú±oªí­zµ²ªG?

°ÝÃD.rar (6.99 KB)
°ÝÃD¦pªþ¥óÀÉ©Ò¥Ü,½Ð±ÐÀ³¦p¦ó¨ú±oªí­zµ²ªG?

¦^´_ 2# ­ã´£³¡ªL


    ¤Ó¦n¥Î¤F,«D±`·PÁª©¥D¥X¤â¬Û§U,·P®¦~

TOP

VBE¤@¯ë¼Ò²Õ¶K¤J¥H¤Uµ{¦¡½X:
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)))  
¤U©Ô§Y¥i

=====

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD