Специальная вставка (метод PasteSpecial объекта Range) применяется в VBA Excel для вставки ячеек из буфера обмена с учетом заданных параметров.
Метод Range.PasteSpecial
Синтаксис
|
1 |
Range.PasteSpecial (Paste, Operation, SkipBlanks, Transpose) |
Специальная вставка работает только с данными ячеек, скопированными в буфер обмена методом Range.Copy. При попытке применить метод Range.PasteSpecial к ячейкам, вырезанным в буфер обмена методом Range.Cut, возникает ошибка.
Параметры специальной вставки
Список параметров метода Range.PasteSpecial:
| Параметры | Описание |
|---|---|
| Paste | Необязательный параметр. Константа из коллекции XlPasteType, указывающая на часть данных вставляемого диапазона, которую следует вставить. По умолчанию вставляются все данные. |
| Operation | Необязательный параметр. Константа из коллекции XlPasteSpecialOperation, указывающая на математические операции, которые следует провести со скопированными данными и данными в ячейках назначения. По умолчанию вычисления не производятся. |
| SkipBlanks | Необязательный параметр. Булево значение, которое указывает, вставлять ли в конечный диапазон пустые ячейки: True – не вставлять, False – вставлять (значение по умолчанию). |
| Transpose | Необязательный параметр. Булево значение, которое указывает, следует ли транспонировать строки и столбцы при вставке диапазона: True – транспонировать, False – не транспонировать (значение по умолчанию). |
Смотрите другой способ транспонировать диапазоны ячеек и двумерные массивы.
Константы XlPasteType
Список констант из коллекции XlPasteType, которые могут быть использованы в качестве аргумента параметра Paste:
| Константа | Значение | Описание |
|---|---|---|
| xlPasteAll | -4104 | Вставка всех данных (по умолчанию). |
| xlPasteAllExceptBorders | 7 | Вставка всех данных, кроме границ. |
| xlPasteAllMergingConditionalFormats | 14 | Вставка всех данных со слиянием условных форматов исходного и нового диапазонов. |
| xlPasteAllUsingSourceTheme | 13 | Вставка всех данных с использованием исходной темы. |
| xlPasteColumnWidths | 8 | Вставка ширины столбцов. |
| xlPasteComments | -4144 | Вставка комментариев. |
| xlPasteFormats | -4122 | Вставка форматов исходного диапазона. |
| xlPasteFormulas | -4123 | Вставка формул. |
| xlPasteFormulasAndNumberFormats | 11 | Вставка формул и форматов чисел. |
| xlPasteValidation | 6 | Вставка правил проверки данных из ячеек исходного диапазона в новый диапазон. |
| xlPasteValues | -4163 | Вставка значений. |
| xlPasteValuesAndNumberFormats | 12 | Вставка значений и форматов чисел. |
Константы XlPasteSpecialOperation
Список констант из коллекции XlPasteSpecialOperation, которые могут быть использованы в качестве аргумента параметра Operation:
| Константа | Значение | Описание |
|---|---|---|
| xlPasteSpecialOperationAdd | 2 | Скопированные данные будут добавлены к значениям в ячейках назначения. |
| xlPasteSpecialOperationDivide | 5 | Скопированные данные разделят значения в ячейках назначения. |
| xlPasteSpecialOperationMultiply | 4 | Скопированные данные будут перемножены со значениями в ячейках назначения. |
| xlPasteSpecialOperationNone | -4142 | Вычисления не выполняются при вставке данных (по умолчанию). |
| xlPasteSpecialOperationSubtract | 3 | Скопированные данные будут вычтены из значений в ячейках назначения. |
Примеры
Примеры копирования и специальной вставки актуальны для диапазона "A1:B8" активного листа, ячейки которого заполнены числами:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
'Копирование диапазона ячеек в буфер обмена: Range("A1:B8").Copy 'Специальная вставка только значений: Range("D1").PasteSpecial Paste:=xlPasteValues 'Специальная вставка с делением значений ячеек конечного 'диапазона на значения ячеек диапазона из буфера обмена: Range("D1").PasteSpecial Operation:=xlPasteSpecialOperationDivide 'Специальная вставка только значений с транспонированием строк и столбцов: Range("G1").PasteSpecial Paste:=xlPasteValues, Transpose:=True |