Основная копия и вставка Макро

Question

Я - основное преимущество. Я попытался сделать макрос для выполнения основной задачи, но я не могу понять, может ли кто-нибудь помочь, пожалуйста!

Я просто хочу скопировать слово перед многочисленными заголовками в отдельных ячейках, а затем добавить данные из соседней ячейки в конец. Например

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

и т.д. и т.п.

Теперь я хочу добавить имя поставщика (WOOD) перед всеми этими названиями, а затем скопировать данные сюда А-2, В-2, С-2 на конец этого названия.

Они должны в конечном итоге выглядит так:

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

Я попытался сделать Марко, но он просто копирует данные из макроса я сделал в каждой из них, а не с использованием данных из соответствующих ячеек. Мне пришлось копировать и вставлять код в каждый из них и добавлять символ в начале, а затем делать поиск и заменять все, что кажется очень длинным.

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