Çalışma sayfasındayken Alt+F11 tıklayın, açılan boş VBE sayfasına alttaki kodları yapıştırın ve bunları çalıştırın.
Kod:
Sub Karakter_Ayarla()
Dim Satir As Integer, Son As Integer, Harf As String, Say As Integer, Uzunluk As Integer
Son = ThisWorkbook.Sheets("varalon dosya örneği").Range("A65536").End(xlUp).Row
For Satir = 2 To Son
Say = 0
Uzunluk = Len(ThisWorkbook.Sheets("varalon dosya örneği").Range("A" & Satir))
Do
Say = Say + 1
Harf = Mid(ThisWorkbook.Sheets("varalon dosya örneği").Range("A" & Satir), Say, 1)
Loop Until IsNumeric(Harf) Or Say >= Len(ThisWorkbook.Sheets("varalon dosya örneği").Range("A" & Satir))
Say = Say
With Range("A" & Satir).Characters(Start:=Say, Length:=(Uzunluk - Say + 1)).Font
.Size = .Size + 4
.Bold = True
.Color = vbRed
End With
Next
End Sub