以粗体和斜体连接不同的单元格excel vba

Question

Sub joint() 
ActiveSheet.Range("a2", ActiveSheet.Range("a2").End(xlDown)).Select 
Row = 2 
col = 2 
For Each Cell In Selection 
country = Cells(Row, col) 
Name = Cells(Row, col + 1) 
honor = Cells(Row, col + 2) 

Cells(Row, col + 8) = Name & ", " & country & ", " & honor 

Row = Row + 1 
Next 
End Sub 

我想以连接形式大胆地命名和斜体表示荣誉。

例如

MYNAME，小唐，ABC

Answer 1

右键你行之后：

Cells(Row, col + 8) = Name & ", " & country & ", " & honor 

增加的这部分代码：

With Cells(Row, Col + 8) 
    .ClearFormats 
    .Characters(1, Len(Name)).Font.Bold = True 
    .Characters(Len(Name) + 4 + Len(Country), Len(.Value)).Font.Italic = True 
End With 

并保持那里就这样。结果

屏幕截图：