VBA Plakken Speciaal - Top 5 manieren om VBA PasteSpecial Function te gebruiken?

Inhoudsopgave

Vergelijkbaar met een werkblad wanneer we gegevens kopiëren en in een ander celbereik plakken, hebben we een speciale methode voor plakken waarmee we de gegevens als zichzelf kunnen plakken of alleen de formules of alleen de waarden en op dezelfde manier kunnen we Plakken speciaal in VBA gebruiken met de bereikeigenschapmethode als volgt bereik. plak special () met het gewenste type tussen haakjes.

Plak speciaal in VBA

Plakken Speciaal in Excel dient op veel manieren in ons dagelijks werk. Met speciaal plakken kunnen we veel meer dingen doen dan de gebruikelijke. Kopiëren en plakken is overal in de computerwereld aanwezig. Maar speciaal plakken is het geavanceerde in Excel.

Net als gewone Excel-plakspecial in VBA, hebben we ook een speciale methode om de gekopieerde gegevens te plakken. Het kopiëren van de dingen in Excel is niet vreemd voor Excel-gebruikers, ze kopiëren, plakken en meestal gebruiken ze speciale plakken om hun doel op veel manieren te dienen.

In gewone Excel bevat plakken veel opties, zoals alleen waarden plakken, formules plakken, formaten plakken en etc. …

Plakken speciaal moeten Plakken, Bewerking, Blanks overslaan en Transponeren zoals dit ook in VBA. We hebben alle parameters met de methode Plakken speciaal .

De formule van Plakken speciaal in VBA

Hieronder vindt u de formule voor plakken speciaal in VBA

Plakken speciaal is verkrijgbaar met VBA Range object, want na het kopiëren van de gegevens, zullen we het te plakken in de cel bereik, dus plakken speciale methode is verkrijgbaar met range object.

Plaktype: Hoe wilt u plakken nadat u de gegevens hebt gekopieerd? Of u waarden, formules, formaten, validatie, enz. Wilt plakken … Hieronder vindt u de volledige lijst met beschikbare opties onder Type plakken.

Speciale bewerking plakken: wilt u tijdens het plakken bewerkingen uitvoeren, zoals optellen, aftrekken, delen, vermenigvuldigen of geen.

  • (Spaties overslaan): als u spaties wilt overslaan, kunt u TRUE of FALSE kiezen.
  • (Transponeren): als u de data wilt transponeren, kunt u TRUE of FALSE kiezen.

Voorbeelden van Plakken speciaal in Excel VBA

Hieronder volgen de voorbeelden van speciale pasta in VBA.

Voorbeeld # 1 - Plak alleen waarden met behulp van VBA PasteSpecial Function

In het eerste voorbeeld zullen we alleen waarden plakken met plakken speciaal. Stel dat hieronder de gegevens zijn die u in de bladnaam met de naam Verkoopgegevens hebt.

Nu zullen we de taak van kopiëren en plakken uitvoeren met behulp van verschillende speciale plakmethoden. Volg onderstaande stappen.

Stap 1: Maak eerst een macronaam.

Stap 2: Kopieer eerst het bereik A1 tot D14 van de bladnaam 'Verkoopgegevens'. Pas de onderstaande code toe om het bereik te kopiëren.

Code: 

Bereik ("A1: D14"). Kopiëren

Stap 3: Na het kopiëren van de gegevens, zullen we de waarden van G1 naar J14 plakken. Verwijs eerst naar het bereik.

Code:

Bereik ("G1: J14")

Step 4: After selecting the range, we need to paste. So put a dot (.) and select Paste Special method.

Code:

Sub PasteSpecial_Example1() Range("A1:D14").Copy Range("G1:J14").PasteSpecial End Sub

Step 5: From the drop-down list, select the option “xlPasteValues.”

Code:

Sub PasteSpecial_Example1() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteValues End Sub

Step 6: Now run this code using the F5 key or manually and see what happens.

So our code copied the data from A1 to D14 and pasted from G1 to J14 as values.

It has performed the task of shortcut excel key in worksheet ALT + E + S + V.

Example #2 - Paste All using VBA PasteSpecial

Now we will see what happens if we perform the task of xlPasteAll.

Code:

Sub PasteSpecial_Example2() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteAll End Sub

Now, if you run this code manually through the run option or by pressing the F5 key, we will have as it is data.

Example #3 - Paste Formats using VBA PasteSpecial Function

Now we will see how to paste only formats. The Below code would do the job for us.

Code:

Sub PasteSpecial_Example3() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteFormats End Sub

If you run this code using the F5 key or manually, we will get the only format of the copied range, nothing else.

Example #4 - Paste Column Width using VBA Paste Special

Now we will see how to paste only column width from the copied range. For this, I have increased the column width for one of my data columns.

Apply the below code it will paste only the column width of the copied range.

Code:

Sub PasteSpecial_Example3() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteColumnWidths End Sub

Run this code and see the difference in the column width.

Now we can see Sales column width has been increased to the column width of our copied range column.

Example #5 - Copy the Data from One Sheet to Another Sheet using VBA Paste Special Option

We have seen how to copy and paste the data on the same sheet. Now we will how to paste from one sheet to another sheet.

Step 1: Before we select the range, we need to tell from which sheet we need to select the data.

Code:

Sub PasteSpecial_Example5() Worksheets ("Sales Data") End Sub

Step 2: After selecting the sheet by its name, then we need to select the range in that sheet. The copy it.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy End Sub

The above code says in the sheet name “Sales Data” copy the Range, (“A1:D14”)

Step 3: Since we are pasting it in a different sheet, we need to select the sheet by its name.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets ("Month Sheet") End Sub

Step 4: Now, in the sheet “Month Sheet,” select the range.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range ("A1:D14") End Sub

Step 5: Using Paste special, we will be pasting values and format.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range("A1:D14").PasteSpecial xlPasteValuesAndNumberFormats End Sub

Step 6: We are not only pasting values and format using VBA Paste Special, but we are pasting it as TRANSPOSE as well.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range("A1:D14").PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True End Sub

Now run this code. It will copy and transpose the data to the “Month Sheet.”

Things to Remember About Excel VBA PasteSpecial Function

  • Als u spaties wilt overslaan, moet u het argument standaard als TRUE invoeren. Het duurt FALSE.
  • Als u de data wilt transponeren, moeten we de transpositie als TRUE selecteren.
  • We kunnen slechts één speciale pasta tegelijk uitvoeren.

Interessante artikelen...