Excelで2つのセルを組み合わせてもフォントを保持する

Question

2つのセルを1つの複数のセルにマージしようとしています。最初のセルはアドレスで構成され、2番目のセルは特殊なフォントを使用してバーコードに変換される番号を保持します。

2番目のセルの内容は、1番目のセルにマージした後に、割り当てられたフォント（バーコードフォント）を保持する必要があります。

誰でも正しい方向に向けることができますか？

UPDATE：

はここに私の作業溶液

Sub barcode() 
Dim i As Integer 
With Worksheets("sheet4") 
    For i = 2 To 19539 
     With .Cells(i, "J") 
      .Value = .Offset(0, -2).Value2 & Chr(10) & .Offset(0, -1).Value2 
      .Characters(Start:=Len(.Offset(0, -2).Value2) + 2, _ 
         Length:=Len(.Offset(0, -1).Value2)).Font.Name = .Offset(0, -1).Font.Name 
     End With 
    Next i 
End With 
End Sub 

Answer 1

ある.Charactersプロパティを操作します。

With Worksheets("sheet4") 
    With .Cells(6, "F") 
     .Value = .Offset(0, -2).Value2 & Chr(10) & .Offset(0, -1).Value2 
     .Characters(Start:=Len(.Offset(0, -2).Value2) + 1, _ 
        Length:=Len(.Offset(0, -1).Value2)).Font.Name = .Offset(0, -1).Font.Name 
    End With 
End With