excel - 基本复制和粘贴宏

Question

我是一个基本的excel。我已经尝试制作一个宏来完成一项基本任务，但我似乎无法弄清楚，谁能帮忙!

我基本上只想在单独的单元格中复制多个标题前面的一个单词，然后将相邻单元格中的数据添加到末尾。例如

A1 - Happy Birthday A-2 WC367
B1 - Congratulations B-2 WC675
C1 - Good Luck C-2 WC542

等等等等

现在我想在所有这些标题前添加一个供应商名称 (WOOD)，然后将 A-2、B-2、C-2 的数据复制到该标题的末尾。

他们最终应该看起来像这样:

A-1 Wood Happy Birthday WC367
B-1 Wood Congratulations WC675
C-1 Wood Good Luck WC542

我曾尝试制作一个 Marco，但它只是将我制作的宏中的数据复制到每个宏中，而不是使用相关单元格中的数据。我最终不得不将代码复制并粘贴到每个代码中，并在开头添加一个符号，然后进行查找和替换所有这些看起来都非常冗长。

Answer 1

您只需输入 A3 = CONCATENATE("Wood ",A1," ",A2)并将公式拖到右侧。

或以下代码:

Sub Macro()
    Dim LastCol As Long
    LastCol = Range("A1").End(xlToRight).Column
    Range(Cells(3, 1), Cells(3, LastCol)).Value = "=CONCATENATE(""Wood "",R[-2]C,"" "",R[-1]C)"
    Range(Cells(1, 1), Cells(1, LastCol)).Value = Range(Cells(3, 1), Cells(3, LastCol)).Value
    Range(Cells(2, 1), Cells(3, LastCol)).ClearContents
End Sub