Posebna pasta VBA - 5 najboljših načinov za uporabo posebne funkcije paste VBA?

Podobno kot pri delovnem listu, ko kopiramo podatke in jih prilepimo v drug obseg celic, imamo tudi posebno metodo lepljenja, ki nam omogoča, da podatke prilepimo kot same ali samo formule ali samo vrednosti in na enak način lahko pri VBA uporabimo Posebno lepljenje metoda lastnosti lastnosti, kot sledi obseg. prilepite special () in v oklepajih navedite želeno vrsto.

Prilepite posebno v VBA

Pasta Special v Excelu je na vsak način v našem vsakdanjem delu. Z uporabo paste paste lahko naredimo veliko več stvari kot običajne. Kopiraj in prilepi je povsod v računalniškem svetu. Toda posebna prilepitev je napredna stvar v Excelu.

Tako kot običajna excel prilepite tudi v VBA, tudi mi imamo prilepite posebno metodo za lepljenje kopiranih podatkov. Kopiranje stvari v Excelu za uporabnike Excela ni nenavadno, kopirajo, prilepijo in večinoma uporabljajo posebne paste, da v mnogih pogledih služijo njihovemu namenu.

V običajnem Excelu prilepi vključuje veliko možnosti, kot so le prilepi vrednosti, prilepi formule, prilepi formate itd. …

Posebno lepljenje je treba tudi pri VBA prilepiti, uporabiti, preskočiti prazne in prestaviti. Vse parametre imamo z metodo Paste Special .

Formula posebne paste v VBA

Spodaj je Formula za posebno lepljenje v VBA

Prilepi posebno je na voljo pri objektu VBA Range, ker ga bomo po kopiranju podatkov prilepili v obseg celic, zato je pri objektu obseg na voljo posebna metoda lepljenja .

Vrsta lepljenja: kako želite kopirati podatke po kopiranju. Ali želite prilepiti vrednosti, formule, formate, preverjanje veljavnosti itd. Spodaj je celoten seznam možnosti, ki so na voljo v razdelku Vrsta lepljenja.

Prilepite posebno operacijo: ali želite med lepljenjem izvajati kakršne koli operacije, kot so seštevanje, odštevanje, deljenje, množenje ali nobeno.

  • (Preskoči prazne prostore): Če želite preskočiti prazne prostore, lahko izberete TRUE ali FALSE.
  • (Prenos): Če želite prenesti podatke, lahko izberete TRUE ali FALSE.

Primeri posebnega lepljenja v Excelu VBA

V nadaljevanju so primeri posebne paste v VBA.

Primer # 1 - Prilepite samo vrednosti z uporabo funkcije VBA PasteSpecial

V prvem primeru bomo izvedli lepljenje samo vrednosti z uporabo paste special. Predpostavimo, da so spodaj podatki, ki jih imate v imenu lista, ki se imenuje Prodajni podatki.

Zdaj bomo nalogo kopiranja in lepljenja izvedli z uporabo več posebnih metod lepljenja. Sledite spodnjim korakom.

1. korak: Najprej ustvarite ime makra.

2. korak: Najprej kopirajte obseg A1 na D14 iz imena lista »Podatki o prodaji«. Če želite kopirati obseg, uporabite spodnjo kodo.

Koda: 

Obseg ("A1: D14"). Kopiraj

3. korak: Po kopiranju podatkov bomo prilepili vrednosti od G1 do J14. Najprej se sklicujete na obseg.

Koda:

Območje ("G1: J14")

4. korak: Po izbiri obsega moramo prilepiti. Torej postavite piko (.) In izberite Prilepi posebno metodo.

Koda:

Sub PasteSpecial_Example1 () Obseg ("A1: D14"). Kopiraj obseg ("G1: J14"). PasteSpecial End Sub

5. korak: Na spustnem seznamu izberite možnost "xlPasteValues."

Koda:

Sub PasteSpecial_Example1 () Obseg ("A1: D14"). Kopiraj obseg ("G1: J14"). PasteSpecial xlPasteValues ​​End Sub

6. korak: Zdaj zaženite to kodo s tipko F5 ali ročno in poglejte, kaj se bo zgodilo.

Tako je naša koda podatke iz A1 kopirala v D14 in iz G1 v J14 prilepila kot vrednosti.

To je opravil nalogo bližnjic excel ključ v lista ALT + E + S + V .

2. primer - prilepite vse z uporabo VBA PasteSpecial

Zdaj bomo videli, kaj se bo zgodilo, če bomo opravili nalogo xlPasteAll.

Koda:

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

  • Če želite preskočiti prazne prostore, morate argument privzeto vnesti kot TRUE. Potrebuje FALSE.
  • Če želite prenesti podatke, moramo prenos izbrati kot TRUE.
  • Naenkrat lahko izvedemo samo eno posebno pasto.

Zanimive Članki...