准提部林

1. Sub TUU()
   
2. Dim xR As Range, T1$, T2$, TT$
   
3. For Each xR In [B2:K2]
   
4.     If xR = "Ｏ" Then
   
5.        If T1 <> "" Then T2 = xR(0) Else T1 = xR(0)
   
6.     Else
   
7.        If T1 <> "" Then
   
8.           TT = TT & "," & T1 & IIf(T2 = "", "", "-" & T2)
   
9.           T1 = "": T2 = ""
   
10.        End If
    
11.     End If
    
12. Next
    
13. MsgBox Mid(TT, 2)
    
14. End Sub

複製代碼