굵게 및 기울임 꼴로 다른 셀을 연결하십시오.

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 

및 유지 다시 그대로입니다. 결과

스크린 샷 :