Sub test()
Dim lastRng As Range, rng As Range, temp As Range, num%
Set lastRng = Cells(Rows.Count, 1).End(3)
For Each rng In Range("A1", lastRng)
Set temp = rng.Offset(, 2)
temp = rng & Chr(10) & rng.Offset(, 1)
'获取斜体文本位置
num = InStr(temp, rng.Offset(, 1).Value)
'对单元格部分内容进行调整
temp.Characters(num, 99).Font.Italic = True
Next rng
End Sub