Макрос Excel - объединение полей и добавление значения

Question

Я написал фрагмент кода, он копирует данные из целых ячеек и вставляет их в другой файл.

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

Пример того, что я пытаюсь сделать;

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

Это копируется и вставляется в

2.xls
Cell B1: Black Jack

Теперь, как я могу вставить информацию из A2 в B1, чтобы получить что-то вроде

Cell B1: Black Jack - 3x

Также изменяется исходное форматирование, оно должно быть Century Gothic, 12, но меняется на Calibri, 11.

Спасибо !!

Answer 1

Не используйте копию.Будьте явными, как это:

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

Это будет только копировать значения и никакие шрифты не пострадают в процессе.