VBA Копие Паст

Подобно на функцията на работния лист в excel, ние също можем да копираме данни от паста или набор от стойности в VBA. В нормални данни използваме или CTRL + C, за да копираме селекция от данни, а след това използваме CTRL + V, за да поставим избраните данни в целевата клетка. Но същото в VBA се прави от някои кодове, които ще научим в тази статия.

Как да използваме копиране и поставяне в Excel VBA? За целта първо трябва да активираме целевия работен лист или работната книга, откъдето искаме да копираме всеки диапазон от данни и този избор е копиран от определен код, когато този избор е успешно копиран, можем да продължим напред и да поставим данните в целта клетъчен обхват.

Синтаксисът за копиране на данните във VBA е следният:

 Обхват („Оригинална клетка“). Копие

Сега синтаксисът за поставяне на данните в друг работен лист или във всеки друг диапазон от клетки е следният:

 Обхват („Целева клетка“). Паст

Ние използваме оператора Dot (.), За да използваме методите за копиране и поставяне в VBA.

Можем да копираме цяла колона и да я поставим в друга колона и по подобен начин можем да копираме и цял ред и да го поставим в друг ред. Ще научим всички тези неща в тази статия.

Забележка: За да използвате VBA в excel, уверете се, че разделът на програмиста е активиран от раздела File и в раздела за настройки на опциите.

Как да използвате Excel VBA Copy Paste?

Ще научим как да използваме VBA Copy Paste с няколко примера в Excel.

Можете да изтеглите този VBA Copy Paste Excel шаблон тук - VBA Copy Paste Excel шаблон

VBA Copy Paste - Пример №1

За демонстрационна цел имам произволна стойност в клетка А1, която искам да я копирам и залепя в клетка B1, използвайки VBA код. Погледнете по-долу какви са данните в клетка А1 и клетка В1 е празна.

Следвайте стъпките по-долу, за да използвате Excel VBA Copy Paste:

Стъпка 1: Отидете в раздела на програмиста и кликнете върху Visual Basic, за да отворите VB Editor.

Стъпка 2: След като се отвори VB редактор, щракнете върху вмъкване и след това щракнете върху Вмъкване на модул, за да вмъкнете прозорец с код.

Стъпка 3: Декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample () Край Sub

Стъпка 4: Първо активирайте работния лист, за да използвате свойствата на работния лист чрез следния код.

Код:

 Sub Sample () Работни листове () Sheet1 ". Активирайте End Sub

Стъпка 5: Копирайте данните, които са в клетка A1, със следния код.

Код:

 Sub Sample () Работни листове () Sheet1 "). Активиране на обхвата (" A1 ").

Стъпка 6: Сега поставете копираните данни в целевата клетка, която е клетка В1, със следния код.

Код:

 Sub Sample () Работни листове ("Sheet1"). Активиране на обхвата ("A1"). Диапазон на копиране ("B1"). PasteSpecial End Sub

Стъпка 7: Стартирайте горния код от предоставения бутон за стартиране и вижте резултата в клетка B1.

VBA Copy Paste - Пример №2

Имам данни в колона C и искам да копирам цялата информация или стойности и да ги залепя в колона D, използвайки VBA код. Вижте по-долу какви са данните в колона В и тази колона D е празна.

Следвайте стъпките по-долу, за да използвате Excel VBA Copy Paste:

Стъпка 1: Отидете в раздела на програмиста и кликнете върху Visual Basic, за да отворите VB Editor.

Стъпка 2: Щракнете върху поставения модул, за да отворите прозореца с код,

Стъпка 3: Декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample1 () Край Sub

Стъпка 4: Първо активирайте работния лист със следния код.

Код:

 Sub Sample1 () работни листове ("Sheet1"). Активирайте крайния Sub

Стъпка 5: Копирайте данните в колона C със следния код.

Код:

 Sub Sample1 () Работни листове ("Sheet1"). Активиране на обхвата ("C: C"). Копиране на края Sub

Стъпка 6: Сега, за да поставите данните в колона D, използвайте следния код.

Код:

 Sub Sample1 () Работни листове ("Sheet1"). Активиране на обхвата ("C: C"). Диапазон на копиране ("D: D"). PasteSpecial End Sub

Стъпка 7: Изпълнете следния код от предоставения бутон за стартиране или натиснете F5.

Пуснете кода, за да видите следния резултат.

VBA Copy Paste - Пример №3

Сега за този пример, имам цял куп диапазон от данни в обхват на клетките G1: H3 и искам да копирам данните в обхвата на клетката I1: J3. Погледнете по-долу данните, които имам в обхвата на клетките G1: H3 и диапазонът на клетките I1: J3 е празен.

Следвайте стъпките по-долу, за да използвате Excel VBA Copy Paste:

Стъпка 1: Отидете в раздела на програмиста и кликнете върху Visual Basic, за да отворите VB Editor.

Стъпка 2: Щракнете върху поставения модул, за да отворите прозореца с код,

Стъпка 3: Декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample2 () Край Sub

Стъпка 4: Първо активирайте работния лист, за да използвате неговите свойства със следния код.

Код:

 Sub Sample2 () работни листове ("Sheet1"). Активирайте End Sub

Стъпка 5: Копирайте данните в обхвата на целевата клетка със следния код.

Код:

 Sub Sample2 () работни листове ("Sheet1"). Активиране на обхвата ("G1: H3").

Стъпка 6: Сега, за да поставите данните в клетката на местоназначението, използвайте следния код.

Код:

 Sub Sample2 () Работни листове ("Sheet1"). Активиране на обхвата ("G1: H3"). Диапазон на копиране ("I1: J3"). PasteSpecial End Sub

Стъпка 7: Стартирайте горния код от предоставения бутон за стартиране или натиснете F5, за да видите следния резултат.

VBA Copy Paste - Пример №4

За този пример, имам данни в ред 10 и искам да поставите данните в ред 11. Погледнете по-долу, за да видите какви са данните в ред 10, а ред 11 е вакантен.

Следвайте стъпките по-долу, за да използвате Excel VBA Copy Paste:

Стъпка 1: Отидете в раздела на програмиста и кликнете върху Visual Basic, за да отворите VB Editor.

Стъпка 2: Щракнете върху поставения модул, за да отворите прозореца с код,

Стъпка 3: Декларирайте подфункция, за да започнете да пишете кода.

Код:

 Sub Sample3 () Край Sub

Стъпка 4: Активирайте работния лист, за да използвате свойствата на работния лист.

Код:

 Sub Sample3 () работни листове ("Sheet1"). Активирайте End Sub

Стъпка 5: Копирайте ред 10 със следния код.

Код:

 Sub Sample3 () работни листове ("Sheet1"). Активиране на редове (10) .EntireRow.Copy End Sub

Стъпка 6: Поставете данните от ред 10 в ред 11 със следния код.

Код:

 Sub Sample3 () Работни листове ("Sheet1"). Активиране на редове (10) .EntireRow.Копиране на редове (11) .EntireRow.PasteSpecial End Sub

Стъпка 7: Стартирайте горния код, като натиснете F5, за да видите следния резултат.

Неща, които трябва да запомните

  • За да използваме данните от всеки работен лист, за да го копираме, първо трябва да активираме работния лист.
  • По подобен начин, когато трябва да поставим данните във всеки друг работен лист във VBA, първо трябва да активираме работния лист на местоназначението.
  • В случай, че копираме цялата колона или ред и поставим данните във всяка друга колона, тогава данните навсякъде в реда или колоната в целевите клетки се копират и поставят в клетките на местоназначение. Това може да доведе до наличието на някои определени нежелани данни.
  • Най-добрият начин за копиране на данните е чрез копиране на определен диапазон и поставяне на данните в целевите клетки.

Препоръчителни статии

Това е ръководство за поставяне на VBA Copy Paste. Тук обсъдихме как да използвате паста Excel VBA Copy заедно с някои практически примери и шаблон за Excel, който може да се сваля. Можете да разгледате и другите ни предложени статии -

  1. Метод за поставяне в VBA
  2. Опция за бърз достъп за Excel Paste
  3. Използване на сплит функция във VBA
  4. Ляв TRIM в Excel

Категория:

VBA