Вставить значения VBA

Вставка значений Excel VBA

Копировать и вставить — не лучшая работа в мире!!! Но копирование и вставка со специальными параметрами требует определенных знаний в VBA. Это не такой простой процесс, как простое копирование и вставка. Один из важных вставить специальные методыВставить специальные методыСпециальная вставка в Excel позволяет вставлять частичные аспекты скопированных данных. Существует несколько способов специальной вставки в Excel, в том числе щелчок правой кнопкой мыши по целевой ячейке и выбор специальной вставки или использование сочетания клавиш, например CTRL+ALT+V или ALT+E+S.читать далее «Вставить значения» в VBA.

Как вставить значения в Excel с помощью VBA?

Вы можете скачать этот шаблон Excel для вставки значения VBA здесь — Шаблон Excel для вставки значения VBA

Пример №1 – Использование специальной вставки

Например, посмотрите на изображение рабочего листа ниже.

Пример вставки значения VBA 1

В ячейке B6 мы применили формулу для расчета общих значений продаж от ячеек B2 до B5. Теперь, если я скопирую и вставлю ячейку B6 в C6, я не получу значение 22 761, но получу соответствующую формулу.

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

Шаг 1: Скопируйте ячейку B6.

Чтобы скопировать ячейку B6, используйте код Range («B6»).

Пример вставки значения VBA 2-1
Шаг 2: Выберите ячейку назначения. В данном случае ячейка C6.

Как вы можете видеть после копии, он спрашивает «Пункт назначения». Это не что иное, как место, куда вы хотите вставить, поэтому выберите «Пункт назначения» в качестве диапазона («C6»)

Код:

Sub Paste_Values()

  Range("B6").Copy Range("C6")

End Sub
Шаг 3: Запустите код

Запустив этот код, мы получим копию B6 в C6.

Пример вставки значения VBA 2-2

У нас есть только формула здесь.

Шаг 4: Выполните специальный метод вставки.

Чтобы выполнить специальный метод вставки, давайте посмотрим на приведенный ниже синтаксис специального метода вставки.

Пример вставки значения VBA 2-3

В специальном методе вставки у нас есть несколько методов. В зависимости от выполняемой нами операции нам необходимо выбрать соответствующий тип.

Для понимания разобьем код на две строки.

Первый копирует ячейку B6.

Пример вставки значения VBA 2-4

Теперь в следующей строке напишите ячейку назначения как Range («C6»)

Пример вставки значения VBA 2-5

Теперь, чтобы получить доступ к специальному методу вставки, поставьте точку и начните вводить букву «P».

Пример вставки значения VBA 2-6

В приведенном выше разнообразии вариантов выберите метод «Специальная вставка».

Пример вставки значения VBA 2-7

После выбора метода нажмите клавишу пробела, чтобы увидеть различные специальные методы вставки.

Пример вставки значения VBA 2-8

В этом множестве вариантов выберите «xlPasteValues».

Пример вставки значения VBA 2-9

После выбора опции нажмите клавишу табуляции для автоматического выбора.

Код:

Sub Paste_Values()

 Range("B6").Copy
 Range("C6").PasteSpecial xlPasteValues

End Sub
Пример 2-10
Шаг 5: Запустите код

Теперь запустим код, у нас должно получиться только значение из ячейки B6 в ячейку C6.

Пример 2-11

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

Пример 2-12
Пример 2-13

Это отключит режим вырезания и копирования после выполнения специального метода вставки.

Пример #2 – Специальная вставка с циклами

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

Например, посмотрите на изображение ниже.

Пример 3

На приведенном выше изображении рабочего листа в столбце «F» у нас есть общий столбец, то есть в ячейках F2, F5, F8, F11 и F14.

Теперь мое требование состоит в том, чтобы скопировать каждую общую ячейку из соответствующей ячейки и вставить в столбец «H» с соответствующими ячейками.

Используя приведенный ниже код, с Циклы VBAЦиклы VBAЦикл VBA в Excel — это инструкция для запуска кода или многократного повторения действия.читать далее, мы можем сделать это.

Код:

Sub Paste_Values1()

 Dim k As Integer
 Dim j As Integer

 j = 2

 For k = 1 To 5
   Cells(j, 6).Copy
   Cells(j, 8).PasteSpecial xlPasteValues
   j = j + 3
 Next k

End Sub

Этот код со специальной опцией вставки будет выполнять задачу копирования каждой общей ячейки и вставки в столбец «H» с соответствующими ячейками.

Пример 3-1

Пример № 3 — Копировать из рабочего листа в другой

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

Sub Paste_Values2()

Worksheets("Sheet1").Range("A1").Copy
Worksheets("Sheet2").Range("A15").PasteSpecial xlPasteValues

End Sub

УЗНАТЬ БОЛЬШЕ >>

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован.