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
![](http://tiebapic.baidu.com/forum/w%3D580/sign=ce83acdf112c11dfded1bf2b53276255/752b8701a18b87d68b25c023410828381f30fd5b.jpg?tbpicau=2024-07-10-05_55954453a8c0ba4a5ba3fc345ff065ec)