Копирование и вставка с использованием макросов в Excel 2007

Question

Я пытаюсь скопировать строку текста в столбце "Лист поиска" и вставить во вторую строку, начиная с CCX2. Например, мне нужно скопировать 2856FRGM и вставить в 12 ячеек (CCX2 - CDI2), затем 2856GRPM и вставить в следующие 12 ячеек и так далее.

У меня есть примерно 3600 уникальных номеров деталей для этого.

Пока что это Макрос, который у меня есть, но он вставляет первый номер детали по всей длине Excel вместо 12 строк на номер детали. Только начиная новый номер детали в строке ниже.

Любая помощь будет принята с благодарностью, только начинается с макросов сегодня, поэтому я не знаю, что я делаю, лол

Answer 1

Sub paste()

(«H4:H5»). Выберите Выбор.Копировать выбор.PasteSpecial Paste:= xlPasteValues, Operation:= xlNone, SkipBlanks _:= False, Transpose:= False Range("H8"). Выбрать

Заявка.CutCopyMode = False

Выбор.Копировать выбор.PasteSpecial Paste:= xlPasteValues, Operation:= xlNone, SkipBlanks:= False, Transpose:= False Range ("H10"). Выбрать

Заявка.CutCopyMode = False

Выбор.Копировать выбор.PasteSpecial Paste:= xlPasteValues, Operation:= xlNone, SkipBlanks _:= False, Transpose:= False Range ("H13:H16"). Выбрать

Заявка.CutCopyMode = Ложное выделение.Копировать выбор.PasteSpecial Paste:= xlPasteValues, операция:= xlNone, SkipBlanks:= False, транспонирование:= False

End Sub

NB. Это образец кода настроить адрес вашей ячейки, как вам нужно.