200 kelime de bir karakter ekleme

[FDUYAR]

Merhaba değer dostlar,

Bir hücre içinde 500 kelimelik bir makale var. Bu şekilde 300 satır veri var.
Ben her hücrerede bulunan bu 500 kelimelik içeriğe bir ekleme yapmak istiyorum. Her 200 kelimede bir " <br/> " ibaresini ekleme istiyorum. Kelime sayısına göre bunu yapmak zor ise bunun yerine her 1500 karakter(boşluk dahil) de birde bu eklemeyi yapabiliriz.

Değerli yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Test()
    Dim X As Long, Veri As Variant, Y As Long, Say As Long, Yeni_Veri As String

    For X = 1 To 300
        Veri = Split(Cells(X, 1), " ")
        For Y = 0 To UBound(Veri)
            Say = Say + 1
            If Yeni_Veri = "" Then
                Yeni_Veri = Veri(Y)
            Else
                Yeni_Veri = Yeni_Veri & " " & Veri(Y)
            End If
            If Say = 200 Then
                Yeni_Veri = Yeni_Veri & "<br>"
                Say = 0
            End If
        Next
        Cells(X, 1) = Yeni_Veri
        Yeni_Veri = ""
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[turist]

Sorunuzu Fonksiyon Soruları başlığında açtığınız için;
Formül ile Çözüm şekli:
500 Kelimelik verilerinizin A1 hücresinden başladığını varsayarsak;
B1 hücresine;
Excel Versiyonu dili İngilizce ise,
=SUBSTITUTE(SUBSTITUTE(A1;" ";CHAR(10);201);" ";CHAR(10);400)
Excel Versiyonu dili Türkçe ise,
=YERİNEKOY(YERİNEKOY(A1;" ";DAMGA(10);201);" ";DAMGA(10);400)
yazıp deneyin.
İstediğiniz şekildeyse, bu formülü B1 hücresinden kopyalayıp aşağıya kadar 300 satır yapıştırın.
Bu şekilde 200 kelimede bir alta geçer.

Diğer şekliye " <br/> " işareti konulsun isterseniz formülü;
=SUBSTITUTE(SUBSTITUTE(C1;" ";" <br/> ";201);" ";" <br/> ";400)
veya
=YERİNEKOY(YERİNEKOY(C1;" ";" <br/> ";201);" ";" <br/> ";400)

şeklinde kullanabilirsiniz.

 

[FDUYAR]

teşekkürler deneyip bilgi vereceğim

 

[FDUYAR]

işe yaradı teşekkürler