Excelマクロ - フィールドのマージと値の追加

Question

私はコードを書いて、セル全体からデータをコピーし、これを別のファイルに貼り付けます。

Select Case Range("A2").Value 
    Case 3 
     Sheets("Info").Select 
     Range("A1").Copy Destination:=Sheets("Design").Range("B1") 
    End Select 

私が何をしようとしているかの例。また

Cell B1: Black Jack - 3x 

ソースフォーマットの線に沿って何かを得るために、B1のaswellに

1.xls 
Cell A1: Black Jack 
Cell A2: 3 

これがコピーされますと、今、私はA2からの情報を挿入することができますどのように

2.xls 
Cell B1: Black Jack 

に貼り付けます変更されるとCentury Gothic、12になりますが、Calibri、11に変更されます。

ありがとうございます！

Answer 1

コピーを使用しないでください。

Sheets("Design").Range("B1").Value = Range("A1").Value & " - " & Range("A2").Value & "x" 

これは値をコピーするだけであり、処理中にフォントが害されることはありません。