excel - 異なるセルを太字と斜体で連結する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

名前を太字にし、連結形式で名誉をイタリック体にしたい.

例えば

私の名前、朴、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

そして残りはそのまま。

結果のスクリーンショット: