Kursivointi

moduuliin...
jos joku muu kuin välilyönti erottimena sanojen välillä, niin muuta a = Split(solu, " ")

Option Explicit

Sub Kursivoi()
Dim vika As Integer
Dim solu As Range
Dim a As Variant
Dim i As Integer
Dim pituus As Integer
On Error Resume Next
vika = Range("D65536").End(xlUp).Row
For Each solu In Range("D1:D" & vika)
a = Split(solu, " ")
pituus = Len(a(0)) Len(a(1)) 1
With solu.Characters(Start:=1, Length:=pituus).Font
.FontStyle = "Kursivoitu"
'.ColorIndex = 3 'fontinväriä voit vaihtaa
'.Size = 14 'fontinkokoa voit vaihtaa
End With
Next
End Sub