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

基本复制和粘贴宏

1 个答案: