基本复制粘贴宏

我是一个基本的excel。我曾尝试让宏做一个基本的任务，但我似乎无法弄清楚，任何人都可以帮忙！基本复制粘贴宏

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

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

等等等等

现在我想在所有这些标题的前面往复A-2中添加的供应商名称（WOOD），然后复制数据，B-2，C-2到这个标题的结尾。

他们应该结束这样看：

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

我试图做一个马，但它只是复制从宏观数据被我变成每个人，而不是使用从相关单元中的数据。我最终不得不将代码复制并粘贴到每个代码中，并在开始时添加一个符号，然后进行查找并替换所有这些看起来都很长的代码。

来源

2015-06-19 MJS

表明你有此刻 –

的代码你为什么不把公式中'D1'像'=“木”＆A1＆“”＆ B1＆“”＆C1'然后填写？ – TessellatingHeckler

您只需输入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

来源

2015-06-20 08:38:04 mpalanco

基本复制粘贴宏

回答

相关问题