Eksi(-) işareti ile ayrılmış rakamları tek olarak alt alta dizmek

[karayele]

merhaba arkadaşlar.

benim yapmak istediğim tek satırda peş peşe sıralanmış ve - işareti ile ayrılmış rakamları tek olarak alt alta dizmek.tabii olabiliyorsa

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu standart bir module sayfasına kopyalayıp, çalıştırınız. B sütununda ayrılmış sayıların alt alta dizildiğini göreceksiniz.

Sub Sayilari_Ayir()
    Dim i As Integer
    Dim iStr As Integer
    Dim vSpl As Variant
    
    For i = 1 To Cells(65536, 1).End(xlUp).Row
        
        If Len(Cells(i, 1)) > 0 Then
            
            For Each vSpl In Split(Cells(i, 1), "-")
                iStr = iStr + 1
                Cells(iStr, 2) = vSpl
            Next
        
        End If
    
    Next i
End Sub