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"

这只会复制值，并且在此过程中不会损坏任何字体。