Hücreyi bölme

[atbarus]

Sayın hocalarım Pdf dosya dönüşümü yaptım ama bazı hücreler birleşik oluşturulmuş. ekte paylaştığım dosyada A sütununda olan verilerden işaretlediğim verileri B sutununa nasıl alabilirim bunun gibi çok satır var hepsi böyle alt alta beşli grup halinde, teşekkürler şimdiden

İndir Ekran Alıntısı JPG

Dosyayı indir Ekran Alıntısı JPG

dosya.co

 

[hasankardas]

Merhaba
Gördüğüm kadarıyla veri sabit gibi, bunun için veri-metni sütunlara dönüştür-sabit genişlikli ile yapabilirsiniz..

 

[muhasebeciyiz]

Sub VerileriAyristir()
    Dim sonSatir As Long
    Dim i As Long
    
    sonSatir = Cells(Rows.Count, "A").End(xlUp).Row    
    For i = 30596 To sonSatir Step 5
        
        Cells(i, "B").Value = Mid(Cells(i, "A").Value, InStrRev(Cells(i, "A").Value, "  ") + 1)
        Cells(i + 1, "B").Value = Mid(Cells(i + 1, "A").Value, InStrRev(Cells(i + 1, "A").Value, "  ") + 1)
        Cells(i + 2, "B").Value = Mid(Cells(i + 2, "A").Value, InStrRev(Cells(i + 2, "A").Value, "  ") + 1)
        Cells(i + 3, "B").Value = Mid(Cells(i + 3, "A").Value, InStrRev(Cells(i + 3, "A").Value, "  ") + 1)
        Cells(i + 4, "B").Value = Mid(Cells(i + 4, "A").Value, InStrRev(Cells(i + 4, "A").Value, "  ") + 1)
    Next i 
    
End Sub

bu kod ile dene bakayım