Īpašā VBA ielīmēšana - Top 5 veidi, kā izmantot VBA PasteSpecial Function?

Satura rādītājs

Līdzīgi kā darblapā, kad mēs kopējam datus un ielīmējam tos citā šūnu diapazonā, mums ir īpaša ielīmēšanas metode, kas ļauj mums ielīmēt datus kā tādus pašus vai tikai formulas vai tikai vērtības un to pašu modi, kuru mēs varam izmantot Īpašā ielīmēšana VBA, izmantojot diapazona īpašību metode ir šāda diapazons. ielīmējiet īpašo (), iekavās norādot vēlamo veidu.

Īpaša ielīmēšana VBA

Īpašā ielīmēšana programmā Excel daudzos veidos kalpo mūsu ikdienas darbā. Izmantojot paste special, mēs varam paveikt daudz vairāk lietu nekā parasti. Kopēt un ielīmēt ir visur datoru pasaulē. Bet pastas īpašais ir uzlabotā lieta programmā Excel.

Tāpat kā parastā Excel īpašā ielīmēšana arī VBA, mums ir īpaša metode, lai ielīmētu kopētos datus. Lietu kopēšana programmā Excel nav dīvaina lieta Excel lietotājiem, viņi kopē, ielīmē un lielākoties izmanto speciālo ielīmēšanu, lai daudzos veidos pildītu savu mērķi.

Parastajā Excel programmā pastā ir daudz iespēju, piemēram, tikai ielīmēšanas vērtības, formulu ielīmēšana, formātu ielīmēšana utt.

Īpaša ielīmēšana ir jāizlīmē, darbība, jāizlaiž sagataves un jāpārvieto tāpat kā VBA. Mums ir visi parametri ar Paste Special metodi.

Īpašās ielīmēšanas formula VBA

Zemāk ir VBA īpašās ielīmēšanas formula

Īpašā ielīmēšana ir pieejama ar VBA diapazona objektu, jo pēc datu kopēšanas mēs tos ielīmēsim šūnu diapazonā, tāpēc ar diapazona objektu ir pieejama īpaša ielīmēšanas metode .

Paste Type: Pēc datu kopēšanas, kā jūs vēlaties ielīmēt. Vai vēlaties ielīmēt vērtības, formulas, formātus, validāciju utt. Tālāk ir sniegts pilns opciju saraksts, kas pieejams sadaļā Ielīmēšanas veids

Īpašās darbības ielīmēšana : ielīmēšanas laikā vēlaties veikt jebkāda veida darbības, piemēram, saskaitīt, atņemt, dalīt, reizināt vai nevienu.

  • (Skip Blanks): Ja vēlaties izlaist tukšās vietas, varat izvēlēties TRUE vai FALSE.
  • (Transponēt): ja vēlaties transponēt datus, varat izvēlēties TRUE vai FALSE.

Īpašās ielīmēšanas piemēri programmā Excel VBA

Šie ir VBA īpašās pastas piemēri.

1. piemērs - tikai vērtību ielīmēšana, izmantojot funkciju VBA PasteSpecial

Pirmajā piemērā mēs ielīmēsim tikai vērtības, izmantojot paste special. Pieņemsim, ka zemāk ir dati, kas jums ir lapas nosaukumā, ko sauc par pārdošanas datiem.

Tagad mēs veiksim kopēšanas un ielīmēšanas uzdevumu, izmantojot vairākas īpašas ielīmēšanas metodes. Veiciet tālāk norādītās darbības.

1. darbība: vispirms izveidojiet makro nosaukumu.

2. darbība: vispirms nokopējiet diapazonu no A1 līdz D14 no lapas nosaukuma “Pārdošanas dati”. Lai kopētu diapazonu, izmantojiet zemāk redzamo kodu.

Kods: 

Diapazons ("A1: D14"). Kopēt

3. solis: Pēc datu kopēšanas mēs ielīmēsim vērtības no G1 līdz J14. Pirmkārt, norādiet diapazonu.

Kods:

Diapazons ("G1: J14")

4. solis: Pēc diapazona izvēles mums jāielīmē. Tāpēc ielieciet punktu (.) Un atlasiet Paste Special metodi.

Kods:

Sub PasteSpecial_Example1 () diapazons ("A1: D14"). Kopēšanas diapazons ("G1: J14"). PasteSpecial End Sub

5. darbība: nolaižamajā sarakstā atlasiet opciju “xlPasteValues”.

Kods:

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

6. solis: Tagad palaidiet šo kodu, izmantojot F5 taustiņu vai manuāli, un uzziniet, kas notiek.

Tātad mūsu kods kopēja datus no A1 līdz D14 un ielīmēja no G1 līdz J14 kā vērtības.

Darblapā ALT + E + S + V tā ir izpildījusi saīsnes Excel taustiņa uzdevumu .

2. piemērs - visu ielīmēšana, izmantojot VBA PasteSpecial

Tagad mēs redzēsim, kas notiks, ja izpildīsim xlPasteAll uzdevumu.

Kods:

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

  • Ja vēlaties izlaist tukšās vietas, pēc noklusējuma arguments jāievada kā TRUE. Tas prasa FALSE.
  • Ja vēlaties transponēt datus, mums jāizvēlas transponēšana kā TRUE.
  • Vienlaikus mēs varam izpildīt tikai vienu īpašu ielīmēšanu.

Interesanti raksti...