Sütundaki Verileri Satırlara Bölmek

[serdarfb]

Arkadaşlar merhaba

Size bir sorum olacak A sütunu ve B sütununda olan verileri resimde olduğu gibi makro ile yapabilir miyiz

A sütunu ve B sütunun örnek olarak 3 satır girdim bunlar bazen 100 veya 1000 gibi olabiliyor istediğim
A2 yazan kod ile B2 içerisinde olan "=" eşittir ile ayrılmış olan verilerin hepsini alt alta olacak şekilde başka bir hücre veya sayfada A2 içeriğinin karşısına yazdırabilir miyiz

 

[veyselemre]

Sub test()
    Dim i, bl, b, sat&
    sat = 2
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        bl = Split(Cells(i, 2).Value, "=")
        For Each b In bl
            Cells(sat, 4).Resize(, 2).Value = Array(Cells(i, 1).Value, Trim(b))
            sat = sat + 1
        Next b
    Next i
End Sub

 

[serdarfb]

Sub test()
    Dim i, bl, b, sat&
    sat = 2
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        bl = Split(Cells(i, 2).Value, "=")
        For Each b In bl
            Cells(sat, 4).Resize(, 2).Value = Array(Cells(i, 1).Value, Trim(b))
            sat = sat + 1
        Next b
    Next i
End Sub

çok teşekkür ederim çok yardımcı oldunuz.

 

[serdarfb]

Sub test()
    Dim i, bl, b, sat&
    sat = 2
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        bl = Split(Cells(i, 2).Value, "=")
        For Each b In bl
            Cells(sat, 4).Resize(, 2).Value = Array(Cells(i, 1).Value, Trim(b))
            sat = sat + 1
        Next b
    Next i
End Sub

veysel bey sayfa 2 nin A ve B sütünlarına nasıl aktarabilirim.

 

[veyselemre]

Sheets("Sayfa2").Cells(sat, 1).Resize(, 2).Value = Array(Cells(i, 1).Value, Trim(b))

 

[serdarfb]

Sheets("Sayfa2").Cells(sat, 1).Resize(, 2).Value = Array(Cells(i, 1).Value, Trim(b))

yardımlarınız için çok teşekkür ederim.