bold ile normal yazıyı iki ayrı hücreye bölme

[erd5334]

Arkadaşlar resimdeki gibi yaklaşık 87000 hücre var bunları başlıkta da belirttiğim gibi nasıl ayrı sütünlara bölebilirim.

 

[muratboz06]

Linkteki çalışma işinizi görecektir.

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

Örneğin Text A1 hücresinde ise bold ve normal olarak ayırmak için
Bold yazılar için findAllBold(A1)
Bold olmayan yazılar için findAllNotBold(A1) formülasyonunu kullanabilirsiniz.

https://stackoverflow.com/questions/46403950/excel-extract-bold-words-in-text linkinden faydalanılmıştır.

 

[erd5334]

Linkteki çalışma işinizi görecektir.

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

Örneğin Text A1 hücresinde ise bold ve normal olarak ayırmak için
Bold yazılar için findAllBold(A1)
Bold olmayan yazılar için findAllNotBold(A1) formülasyonunu kullanabilirsiniz.

https://stackoverflow.com/questions/46403950/excel-extract-bold-words-in-text linkinden faydalanılmıştır.

çok teşekkür ederim. hocam.

 

[veyselemre]

Sub boldAyir()
    Dim i&, ii&, bl1$, bl2$, bulundu As Boolean, bak As Range
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        Set bak = Cells(i, 1)
        bulundu = False
        For ii = 1 To Len(bak)
            If bak.Characters(ii, 1).Font.Bold = False Then
                bl1 = Trim(Left(bak.Value, ii - 1))
                bl2 = Trim(Mid(bak.Value, ii))
                bak.Offset(0, 1).Value = bl1
                bak.Offset(0, 2).Value = bl2
                bulundu = True
                Exit For
            End If
            If bulundu = False Then bak.Offset(0, 1).Value = bak.Value
            bak.Offset(0, 1).Font.Bold = True
        Next ii
    Next i
End Sub