metni sayıya çevirip altalta sıralama

[tevfikseremet]

a1 hücresinde 15_16_17 şeklindeki bir veriyi b1=15 b2=16 b3=17 ,
a2 hücresinde 30_31_32_33 şeklindeki veriyi de b4=30 b5=31 b6=32 b7=33 şeklinde nasıl aktarabiliriz.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Ayir_Aktar()
 
    Dim i   As Long, _
        j   As Long, _
        k   As Integer, _
        a() As String
    
    Application.ScreenUpdating = False
    Range("B:B").ClearContents
    
    j = 1
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        a = Split(Cells(i, "A"), "_")
        Range("B" & j).Resize(UBound(a) + 1, 1) = Application.WorksheetFunction.Transpose(a)
        j = j + UBound(a) + 1
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlanmıştır", vbInformation, "N. YEŞERTENER--> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[Necdet]

Merhaba demişiz, çözüm yolunu kendimizce bulmuşuz ama sonuç olumlu mu olumsuz mu "TIK" yok.