VBA specijalna pasta - Top 5 načina korištenja posebne funkcije VBA PasteSpecial?

Sadržaj

Posebno zalijepite u VBA

Slično radnom listu kada kopiramo podatke i zalijepimo ih u drugi raspon ćelija, imamo posebnu metodu lijepljenja koja nam omogućuje da podatke zalijepimo kao same sebe ili samo formule ili samo vrijednosti, a na isti način možemo koristiti posebnu zalijepljenost u VBA pomoću metoda svojstva raspona kako slijedi raspon. zalijepite special () pružajući vrstu koju želimo u zagradama.

Posebno zalijepite u VBA

Pasta Special u Excelu na mnogo načina služi u našem svakodnevnom radu. Pomoću paste paste možemo učiniti mnogo više stvari od uobičajenih. Kopiranje i lijepljenje postoji svugdje u svijetu računala. Ali zalijepite posebno je napredna stvar u excelu.

Kao i redovna excel paste posebna u VBA, i mi imamo posebnu metodu zalijepljenja kopiranih podataka. Kopiranje stvari u Excelu nije neobična stvar za korisnike Excela, oni kopiraju, lijepe i većinu vremena koriste posebnu paste da bi na mnogo načina služili svojoj svrsi.

U redovnom Excelu, paste uključuje mnoge mogućnosti poput zalijepiti samo vrijednosti, zalijepiti formule, zalijepiti formate itd. …

Posebno lijepljenje također mora lijepiti, raditi , preskakati praznine i transponirati u VBA. Imamo sve parametre metodom Paste Special .

Formula paste u VBA

Ispod je Formula za specijalnu paste u VBA

Posebno lijepljenje dostupno je s objektom VBA Range, jer ćemo ga nakon kopiranja podataka zalijepiti u raspon ćelija, tako da je posebna metoda lijepljenja dostupna s objektom raspona .

Vrsta zalijepljenja : nakon kopiranja podataka, kako želite zalijepiti. Bez obzira želite li zalijepiti vrijednosti, formule, formate, provjeru valjanosti itd. … Ispod je cjelovit popis opcija dostupnih pod Vrsta zalijepljenja .

Lijepljenje posebne operacije: želite li tijekom lijepljenja izvoditi bilo kakve operacije poput zbrajanja, oduzimanja, dijeljenja, množenja ili nijedne.

(Preskoči prazne prostore): Ako želite preskočiti prazne prostore, tada možete odabrati TRUE ili FALSE.
(Transponiraj): Ako želite prenijeti podatke, tada možete odabrati TRUE ili FALSE.

Primjeri posebne paste u Excelu VBA

Slijede primjeri posebne paste u VBA.

Primjer # 1 - Zalijepite samo vrijednosti pomoću VBA PasteSpecial funkcije

U prvom primjeru izvest ćemo lijepljenje samo vrijednosti pomoću paste special. Pretpostavimo da su u nastavku podaci koje imate u nazivu lista pod nazivom Podaci o prodaji.

Sada ćemo izvršiti zadatak kopiranja i lijepljenja pomoću nekoliko posebnih metoda lijepljenja. Slijedite korake u nastavku.

Korak 1: Prvo stvorite ime makronaredbe.

Korak 2: Prvo kopirajte raspon A1 na D14 iz naziva lista "Podaci o prodaji". Da biste kopirali raspon, primijenite donji kod.

Kodirati:

Raspon ("A1: D14"). Kopija

Korak 3: Nakon kopiranja podataka, lijepit ćemo vrijednosti od G1 do J14. Prvo, navedite raspon.

Kodirati:

Domet ("G1: J14")

Korak 4: Nakon odabira raspona, moramo zalijepiti. Dakle, stavite točku (.) I odaberite Način zalijepiti posebno.

Kodirati:

Sub PasteSpecial_Example1 () Raspon ("A1: D14"). Kopiraj raspon ("G1: J14"). PasteSpecial End Sub

Korak 5: Na padajućem popisu odaberite opciju "xlPasteValues."

Kodirati:

Sub PasteSpecial_Example1 () Raspon ("A1: D14"). Kopiraj raspon ("G1: J14"). PasteSpecial xlPasteValues Kraj Sub

Korak 6: Sada pokrenite ovaj kod pomoću tipke F5 ili ručno i pogledajte što će se dogoditi.

Tako je naš kod kopirao podatke iz A1 u D14 i zalijepio iz G1 u J14 kao vrijednosti.

On je izvršio zadatak prečaca Excel ključ u radni list , ALT + E + S + V .

Primjer # 2 - Zalijepite sve pomoću VBA PasteSpecial

Sad ćemo vidjeti što će se dogoditi ako izvršimo zadatak xlPasteAll.

Kodirati:

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

Ako želite preskočiti prazne prostore, morate zadati argument kao ISTINA. Potrebno je FALSE.
Ako želite prenijeti podatke, moramo odabrati prenošenje kao ISTINITO.
Istodobno možemo izvoditi samo jednu posebnu pastu.