基本复制和粘贴macros

我是一个基本的excel。 我已经试图做一个macros来做一个基本的任务，但我似乎无法弄清楚，任何人都可以帮忙！

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

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，但是它只是将我制作的macros的数据复制到每个macros而不是使用相关单元的数据。 我已经结束了复制和粘贴到每一个代码，并在开始时添加一个符号，然后做一个查找，并取代所有这一切似乎很长的啰嗦。

Answer 1

您只需inputA3 = 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