VBA kopiëren plakken

Vergelijkbaar met de werkbladfunctie in Excel, kunnen we ook plakgegevens of een reeks waarden kopiëren in VBA. In normale gegevens gebruiken we CTRL + C om een ​​selectie van gegevens te kopiëren en vervolgens CTRL + V om de geselecteerde gegevens in de doelcel te plakken. Maar hetzelfde in VBA wordt gedaan door bepaalde codes die we in dit artikel zullen leren.

Hoe gebruiken we kopiëren en plakken in Excel VBA? Om dit eerst te doen, moeten we het doelwerkblad of de werkmap activeren van waaruit we een willekeurig gegevensbereik willen kopiëren en die selectie wordt gekopieerd door een bepaalde code. Als die selectie met succes wordt gekopieerd, kunnen we doorgaan en de gegevens in het doel plakken celbereik.

De syntaxis om de gegevens in VBA te kopiëren is als volgt:

 Bereik ("Original Cell") .Copy

Nu is de syntaxis om de gegevens in een ander werkblad of een ander celbereik te plakken als volgt:

 Bereik ('Destination Cell'). Plakken

We gebruiken de operator Dot (.) Om de methoden voor kopiëren en plakken in VBA te gebruiken.

We kunnen een hele kolom kopiëren en in een andere kolom plakken en op dezelfde manier kunnen we ook een hele rij kopiëren en in een andere rij plakken. We zullen al deze dingen in dit artikel leren.

Opmerking: om VBA in Excel te kunnen gebruiken, moet u ervoor zorgen dat het tabblad Ontwikkelaar is ingeschakeld via het tabblad Bestand en vervolgens naar het gedeelte met instellingen voor opties.

Hoe Excel VBA kopiëren en plakken gebruiken?

We zullen leren hoe VBA Copy Paste te gebruiken met enkele voorbeelden in Excel.

U kunt deze VBA-kopie plakken Excel-sjabloon hier downloaden - VBA-kopie plakken Excel-sjabloon

VBA Copy Paste - Voorbeeld # 1

Voor demonstratiedoeleinden heb ik een willekeurige waarde in cel A1 die ik wil kopiëren en in cel B1 plakken met behulp van VBA-code. Kijk hieronder wat de gegevens in cel A1 zijn en cel B1 leeg is.

Volg de onderstaande stappen om Excel VBA Copy Paste te gebruiken:

Stap 1: Ga naar het tabblad ontwikkelaar en klik op Visual Basic om VB Editor te openen.

Stap 2: Zodra de VB-editor wordt geopend, klikt u op invoegen en vervolgens op Module invoegen om een ​​codevenster in te voegen.

Stap 3: Declareer een subfunctie om de code te schrijven.

Code:

 Sub-monster () Einde Sub

Stap 4: Activeer eerst het werkblad om de eigenschappen van het werkblad met de volgende code te gebruiken.

Code:

 Sub-voorbeeld () Werkbladen ("Blad1"). Activeer Sub-einde

Stap 5: Kopieer de gegevens in cel A1 met de volgende code.

Code:

 Sub Sample () Werkbladen ("Sheet1"). Activeer bereik ("A1"). Copy End Sub

Stap 6: Plak nu de gekopieerde gegevens in de doelcel, cel B1, met de volgende code.

Code:

 Sub-voorbeeld () Werkbladen ("Blad1"). Activeer bereik ("A1"). Kopieerbereik ("B1"). PlakkenSpeciaal einde Sub

Stap 7: Voer de bovenstaande code uit met de meegeleverde knop Uitvoeren en bekijk het resultaat in cel B1.

VBA Copy Paste - Voorbeeld # 2

Ik heb gegevens in kolom C en ik wil de volledige gegevens of waarden kopiëren en in kolom D plakken met behulp van VBA-code. Kijk hieronder wat de gegevens in kolom C zijn en die kolom D is leeg.

Volg de onderstaande stappen om Excel VBA Copy Paste te gebruiken:

Stap 1: Ga naar het tabblad ontwikkelaar en klik op Visual Basic om VB Editor te openen.

Stap 2: Klik op de ingevoegde module om het codevenster te openen,

Stap 3: Declareer een subfunctie om de code te schrijven.

Code:

 Sub Sample1 () Einde Sub

Stap 4: Activeer eerst het werkblad met de volgende code.

Code:

 Sub Sample1 () Werkbladen ("Sheet1"). Activeer Sub Sub

Stap 5: Kopieer de gegevens in kolom C met de volgende code.

Code:

 Sub Sample1 () Werkbladen ("Sheet1"). Activeer bereik ("C: C"). Copy End Sub

Stap 6: Gebruik nu de volgende code om de gegevens in kolom D te plakken.

Code:

 Sub Sample1 () Werkbladen ("Sheet1"). Activeer bereik ("C: C"). Kopieerbereik ("D: D"). PasteSpecial End Sub

Stap 7: Voer de volgende code uit met de meegeleverde knop Uitvoeren of druk op F5.

Voer de code uit om het volgende resultaat te zien.

VBA Copy Paste - Voorbeeld # 3

Nu heb ik voor dit voorbeeld een hele reeks gegevens in celbereik G1: H3 en ik wil de gegevens kopiëren in het celbereik I1: J3. Bekijk hieronder de gegevens die ik heb in het celbereik G1: H3 en het celbereik I1: J3 is leeg.

Volg de onderstaande stappen om Excel VBA Copy Paste te gebruiken:

Stap 1: Ga naar het tabblad ontwikkelaar en klik op Visual Basic om VB Editor te openen.

Stap 2: Klik op de ingevoegde module om het codevenster te openen,

Stap 3: Declareer een subfunctie om de code te schrijven.

Code:

 Sub Sample2 () Einde Sub

Stap 4: Activeer eerst het werkblad om de eigenschappen ervan met de volgende code te gebruiken.

Code:

 Sub Sample2 () Werkbladen ("Sheet1"). Activeer Sub Sub

Stap 5: Kopieer de gegevens in het doelcelbereik met de volgende code.

Code:

 Sub Sample2 () Werkbladen ("Sheet1"). Activeer bereik ("G1: H3"). Copy End Sub

Stap 6: Gebruik nu de volgende code om de gegevens in de doelcel te plakken.

Code:

 Sub Sample2 () Werkbladen ("Sheet1"). Activeer bereik ("G1: H3"). Kopieerbereik ("I1: J3"). PasteSpecial End Sub

Stap 7: Voer de bovenstaande code uit met de meegeleverde knop Uitvoeren of druk op F5 om het volgende resultaat te zien.

VBA Copy Paste - Voorbeeld # 4

Voor dit voorbeeld heb ik gegevens in rij 10 en wil ik de gegevens in rij 11 plakken. Kijk hieronder wat de gegevens in rij 10 zijn en rij 11 is leeg.

Volg de onderstaande stappen om Excel VBA Copy Paste te gebruiken:

Stap 1: Ga naar het tabblad ontwikkelaar en klik op Visual Basic om VB Editor te openen.

Stap 2: Klik op de ingevoegde module om het codevenster te openen,

Stap 3: Declareer een subfunctie om de code te schrijven.

Code:

 Sub Sample3 () Einde Sub

Stap 4: Activeer het werkblad om de eigenschappen van het werkblad te gebruiken.

Code:

 Sub Sample3 () Werkbladen ("Sheet1"). Activeer Sub Sub

Stap 5: Kopieer rij 10 met de volgende code.

Code:

 Sub Sample3 () Werkbladen ("Sheet1"). Activeer Rijen (10) .EntireRow.Copy End Sub

Stap 6: Plak de gegevens van rij 10 in rij 11 met de volgende code.

Code:

 Sub Sample3 () Werkbladen ("Sheet1"). Activeer Rijen (10) .EntireRow.Copy Rows (11) .EntireRow.PasteSpecial End Sub

Stap 7: Voer de bovenstaande code uit door op F5 te drukken om het volgende resultaat te zien.

Dingen om te onthouden

  • Om gegevens van een werkblad te gebruiken om het te kopiëren, moeten we eerst het werkblad activeren.
  • Evenzo moeten we, wanneer we de gegevens in een ander werkblad in VBA moeten plakken, eerst het doelwerkblad activeren.
  • In het geval dat we de hele kolom of rij kopiëren en de gegevens in een andere kolom plakken, worden gegevens overal in de rij of kolom in de doelcellen gekopieerd en geplakt in doelcellen. Dit kan leiden tot bepaalde ongewenste gegevens.
  • De beste manier om de gegevens te kopiëren, is door een bepaald bereik te kopiëren en de gegevens in de doelcellen te plakken.

Aanbevolen artikelen

Dit is een handleiding voor VBA Copy Paste geweest. Hier hebben we besproken hoe u Excel VBA-kopieerpasta kunt gebruiken, samen met enkele praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -

  1. Plakmethode in VBA
  2. Excel plakken snelkoppeling optie
  3. Gebruik van de splitfunctie in VBA
  4. Links TRIM in Excel

Categorie:

VBA