Как использовать специальную вставку с использованием кодов VBA? | Коды VBA

Специальная вставка — это очень распространенная функция Excel, которую мы так часто используем при работе с данными. Возможно, нам потребуется вставить значения, форматирование или формулы с помощью специальной вставки вместо вставки данных со всеми включенными компонентами. Но как мы можем использовать специальную вставку в кодах Excel VBA. Давайте разберемся на примере.

Предположим, что ниже представлены данные, в которые включены все компоненты: значения, форматирование (границы и цвета), формулы и комментарии.

Давайте скопируем данные с листа5, используя коды VBA.

Подпрограмма Paste_special()

Листы("Лист5"). выберите

Диапазон("a1").currentregion.copy

Конец подписки

Приведенные выше коды скопируют данные с листа5, и, допустим, мы хотим вставить их в лист4.

Подпрограмма Paste_special()

Листы("Лист5"). выберите

Диапазон("a1").currentregion.copy

Листы("Листы4").выбрать

Конец подписки

Sheets("Sheets4").select — этот код активирует лист4, на который мы хотим вставить данные.

Теперь выберите ячейку и используйте специальное свойство вставки, чтобы вставить только значения.

Вы увидите множество свойств, которые можно использовать в специальной вставке. Выберите тот, который вы хотите использовать. Давайте в примере будем использовать «xlpastevalues» для вставки только значений.

Коды:

Подпрограмма paste_special()

Листы("Лист5"). Выбрать

Диапазон("a1").CurrentRegion.Copy

Листы("Лист4"). Выбрать

Range("a1").PasteSpecial (xlPasteValues) ‘ для вставки значений

Range("a1").PasteSpecial (xlPasteFormats) ‘ Чтобы вставить форматы

Range("a1").PasteSpecial (xlPasteComments) ‘ Чтобы вставить комментарии

Range("a1").PasteSpecial (xlPasteFormulas) ' для вставки формул

Конец подписки

Вывод: в лист4 вставлены только значения.