VBA паста
VBA Paste работи по същия начин, както ние Copy / Cut и Paste в Excel. VBA Поставете го автоматизираната версия на това, което редовно правим в редовна работа на excel. Рутинната задача е поставяне на данни във всяко необходимо място. За да извършим тази дейност, трябва да определим местоположението, откъдето ще изберем данните и мястото, където ще ги поставим.
Как да използвате Excel VBA паста?
Ще научим как да използваме VBA паста с няколко примера в Excel.
Можете да изтеглите този шаблон на VBA Paste Excel тук - VBA Paste Excel шаблонVBA паста - пример №1
Нека разгледаме всяка клетка в excel, която има някакъв текст. Тук сме запазили текста „ VBA Paste “ в клетка B3, както е показано по-долу.
Следвайте стъпките по-долу, за да използвате VBA Paste.
Стъпка 1: Сега отидете на прозореца VBA и отворете нов модул от менюто Вмъкване, както е показано по-долу.
Стъпка 2: След като направим това, ще получим празен модул. В това започнете да пишете Подкатегория. Препоръчително е да напишете подкатегория в името на функцията, която изпълняваме.
Код:
Sub VBAPaste1 () End Sub
Стъпка 3: Сега първо изберете клетката Range, където имаме данните, които трябва да копираме. Тук нашата клетка за диапазон е B3, последвана от .Copy функция. Това копира данните в диапазона клетка, която сме избрали.
Код:
Sub VBAPaste1 () Обхват ("B3"). Копиране на края Sub
Стъпка 4: Сега се нуждаем от клетка на местоназначение, където трябва да поставим тази копирана стойност. С помощта на командата Destination изберете клетката Range. Тук сме избрали клетка D1, където ще видим стойността.
Код:
Под VBAPaste1 () Обхват ("B3"). Цел на копиране: = Обхват ("D1") Краен под
Стъпка 5: След като сте готови, компилирайте кода и го стартирайте.
Ще видим, че съдържанието на клетка в клетка B3 вече е копирано и поставено в клетка D3, както е показано по-горе.
VBA паста - пример №2
Нека разгледаме друг пример за VBA Paste. За това отидете до прозореца на VBA и отворете модул и след това следвайте стъпките по-долу.
Стъпка 1: Започнете да пишете подкатегория в името на VBA Paste или в друго име, както е показано по-долу.
Код:
Sub VBAPaste2 () End Sub
Стъпка 2: Тук ще разгледаме същите данни или референтна клетка B3, които видяхме в пример-1. Изберете клетката за диапазон B3, последвана от командата .Copy . Това ще копира данните.
Код:
Sub VBAPaste2 () Обхват ("B3"). Копиране на края Sub
Стъпка 3: Сега изберете клетката за диапазон, в която трябва да поставите копираните данни. Тук избираме клетки D1 до D3 за разлика от избора само на една клетка, както е показано в пример-1.
Код:
Под VBAPaste2 () Обхват ("B3"). Обхват на копиране ("D1: D3"). Изберете End Sub
Стъпка 4: След като копирахме данните и избрахме клетките, където трябва да бъдат поставени. Сега изберете команда Поставяне с помощта на функцията ActiveSheet . Този Activesheet позволява копираната клетка, поставена в клетки от обхвата.
Код:
Под VBAPaste2 () Обхват ("B3"). Обхват на копиране ("D1: D3"). Изберете ActiveSheet.Paste End Sub
Стъпка 5: Сега компилирайте кода и го стартирайте. Ще видим, стойността на клетката от клетка B3 ще бъде поставена от клетки D1 до D3.
VBA паста - пример №3
Друг метод на VBA Paste е използването на ръчния процес, който правим за копиране и поставяне.
Изпълнете следните стъпки:
Стъпка 1: Напишете подкатегория на VBA Paste, както е показано по-долу.
Код:
Sub VBAPaste3 () End Sub
Стъпка 2: По-добре е да дадете последователност на Подкатегория, ако пишете множество набори кодове в един файл. За да поставим нещо, първо трябва да копираме тези данни. Тук сме избрали командата Copy .
Код:
Под VBAPaste3 () Избор. Копиране Край Под
Стъпка 3: Сега изберете диапазона или референтната клетка, която трябва да копираме и поставите. Тук имаме Cell D3 с данни „VBA Paste“ в нея.
Код:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Изберете End Sub
Стъпка 4: Сега в excel избираме клетките, в които трябва да поставим данните ръчно или чрез клавиши Shift + Ctrl + Up / Down. Тук също ще изберем местоположението на клетките чрез команда End (xlUp) за избор на обхвата на изходните клетки.
Код:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Изберете Range (Selection, Selection.End (xlUp)). Изберете End Sub
Стъпка 5: Сега изберете диапазона на изходната клетка, тук сме избрали клетки D1 до D3, където ще видим поставените данни.
Код:
Sub VBAPaste3 () Selection.Copy Range ("D3"). Изберете Range (Selection, Selection.End (xlUp)). Изберете Range ("D1: D3"). Select End Sub
Стъпка 6: Като функция, ние трябва да изпълним е функция паста, така че трябва да активираме командата за поставяне в VBA от командата ActiveSheet, последвана от поставяне на точка (.).
Код:
Под VBAPaste3 () Selection.Copy Range ("D3"). Изберете Range (Selection, Selection.End (xlUp)). Изберете Range ("D1: D3"). Изберете ActiveSheet.Paste End Sub
Стъпка 7: Сега най-сетне разрешете на приложението CutCopyMode като FALSE, което означава, че копирате само данните, вместо да ги изрязвате от референтната клетка.
Код:
Под VBAPaste3 () Selection.Copy Range ("D3"). Изберете диапазон (Selection, Selection.End (xlUp)). Изберете Range ("D1: D3"). Изберете ActiveSheet.Paste Application.CutCopyMode = False End Sub
Стъпка 8: Преди да стартирате кода, първо поставете курсора върху Cell B3. След това компилирайте кода и го стартирайте. Ще видим, че нашите данни ще бъдат копирани в клетки D1 до D3.
VBA паста - пример №4
Има и друг начин за използване на VBA Paste в един ред код.
Изпълнете следните стъпки:
Стъпка 1: Напишете подкатегорията в последователността и името на изпълнена функция.
Код:
Sub VBAPaste4 () End Sub
Стъпка 2: Използвайте командата Worksheets и изберете листа, където ще работим. Тук името на нашия лист е „Sheet1“. Можем да използваме Workbook.Sheet (1) също за избор на „Sheet1“ вместо това.
Код:
Под VBAPaste4 () работни листове („Sheet1“). Край Sub
Стъпка 3: Изберете клетката, от която ще копираме данните. Тук нашата клетка за обхват е B3, която има същите данни, както видяхме в горните примери.
Код:
Под VBAPaste4 () работни листове ("Sheet1"). Обхват ("B3"). Край Sub
Стъпка 4: Сега поставете командата Copy след точка (.) За копиране на данните от избраната клетка Range.
Код:
Под VBAPaste4 () работни листове ("Sheet1"). Обхват ("B3").
Стъпка 5: Сега използвайте командата Destination, за да изберете местоположението, където ще поставим копираните данни. За това изберете Работен лист като „Sheet1“, което направихме в началото на този пример и изберете клетките Range навсякъде в същия лист. Тук сме избрали изходни клетки от диапазон от D1 до D3.
Код:
Под VBAPaste4 () Работни листове ("Sheet1"). Обхват ("B3"). Местоназначение на копирането: = Работни листове ("Sheet1"). Диапазон ("D1: D3") Край Sub
Стъпка 6: Сега компилирайте и стартирайте. Ние ще текстът „VBA Paste“ от клетка B3 ще бъде копиран и поставен в клетки D1 до D3, както е показано по-долу.
Плюсове на Excel VBA Paste
- Прилагането на първите 2 примера са лесният и бърз начин за прилагане на VBA Paste.
- За огромни данни, където е трудно да се извършват множество дейности, там, ако автоматизираме този вид малка функция, това би спестило огромно време за извършване на ръчни неща.
- Няма ограничение за копиране и поставяне на данните.
Неща, които трябва да запомните
- Използвайте подкатегория по такъв начин, че ако използвате няколко модула, тогава поставянето на последователността ще улесни проследяването и избора на правилния макрос.
- Запишете Excel файла във формат за активиране на макроси, така че писменият код да бъде запазен за следващия път на използване.
- Ако пишете няколко реда код, се препоръчва да компилирате кода ред по ред, за да откриете дали има грешка в него.
- Препоръчва се да поставите курсора в клетка B3, ако използвате пример-3.
Препоръчителни статии
Това е ръководство за VBA Paste. Тук обсъдихме VBA Paste и как да използвате Excel VBA Paste заедно с практически примери и шаблон за Excel, който може да се сваля. Можете да разгледате и другите ни предложени статии -
- VBA мач | Как да използвам?
- Excel TRANSPOSE Формула
- Обхват на VBA | Лесни Excel макроси
- Вложен IF формула в Excel