DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
çok teşekkür ederim. hocam.Linkteki çalışma işinizi görecektir.
Ö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.
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