Hücredeki metni bölme

[airborne]

s.a.

Sayfa1 de bulunan A1 hücresinde ki 2000 karakter olan metni makro ile Sayfa1 de B1 hücresinden B10 hücresine kadar 200 karakter olarak bölebilmem için nasıl bir kod yazılabilir.

Mesela: Hücrede 1000 harakterlik metin varsa ilk beş hücreye paylaştıracak 5. hücrede itibaren boş kalacak şekilde

Yardımlarınız için şimdiden teşekkür ederim.

Selametle,...........

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Parçala()
j = 1
    For i = 1 To 10
        Cells(i, 2) = Mid(Cells(1, 1), j, 200)
        j = j + 200
    Next
End Sub

 

[airborne]

s.a.

Allah razı olsun üstad.