от
У меня есть некоторый код VBA, который должен сделать следующее: Копировать / Вставить один столбец Range с другого листа удалить дубликаты из этого диапазона вставьте этот диапазон под себя 2 раза, чтобы было 3 копии каждого уникального значения, скопированного с исходного листа. Вот мой код для дублирования диапазона:
Sub paste_multiple(ByVal copy As Range, ByVal times As Long)
    Dim last_row As Long
    For i = 1 To times
        Debug.Print (copy.Address)
        last_row = WorksheetFunction.CountA(ThisWorkbook.Sheets("scratchpad").Range("A:A"))
        copy.copy (ThisWorkbook.Sheets("scratchpad").Range("A"

Пожалуйста, войдите или зарегистрируйтесь для публикации ответа на этот вопрос.

Добро пожаловать на сайт ByNets, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...