Hasonlóan a munkalaphoz, amikor egy adatot másolunk és beillesztünk egy másik cellatartományba, van egy speciális beillesztési módszerünk, amely lehetővé teszi számunkra, hogy beillesszük az adatokat önmagukba, vagy csak képleteket, vagy csak azokat az értékeket és módokat, amelyeket a VBA-ban a Speciális beillesztés használatával a tartomány tulajdonság metódus a következő tartomány szerint. illessze be a zárójelbe a kívánt típust.
Különleges beillesztés a VBA-ban
A Paste Special in excel sok szempontból szolgál a mindennapi munkánk során. A paste special használatával a szokásosnál sokkal több dolgot tudunk megtenni. A másolás és beillesztés mindenhol ott van a számítógépes világban. De a special paste a haladó dolog az excelben.
Mint a VBA-ban a szokásos excel paste, a másolt adatok beillesztésére speciális módszerünk is van. A dolgok excelbe másolása az excel felhasználók számára nem furcsa dolog, másolják, beillesztik, és legtöbbször a special specialt használják, hogy sok szempontból szolgálják a céljukat.
A szokásos excelben a beillesztés számos lehetőséget tartalmaz, például csak beillesztési értékeket, képletek beillesztését, formátumok beillesztését stb.
Speciális beillesztés a VBA-ban is be kell illesztenie, Üzemeltetni, Üreseket kihagyni és átültetni . Az összes paraméter megvan a Paste Special módszerrel.
A Formula of Paste Special a VBA-ban
Az alábbiakban a VBA speciális beillesztési képlete található
A Paste Special a VBA Range objektummal érhető el, mert az adatok másolása után beillesztjük a cellatartományba, így a speciális objektum beillesztése elérhető a range objektummal.
Beillesztés típusa: Az adatok másolása után hogyan szeretné beilleszteni. Akár be akarja illeszteni az értékeket, képleteket, formátumokat, érvényesítést stb .
Speciális művelet beillesztése : Beillesztés közben bármilyen műveletet szeretne végrehajtani, például összeadást, kivonást, osztást, szorzást vagy egyet sem.
- (Üresek kihagyása): Ha ki akarja hagyni az üreseket, választhatja az IGAZ vagy a HAMIS lehetőséget.
- (Átültetés): Ha át akarja ültetni az adatokat, választhatja az IGAZ vagy HAMIS lehetőséget.
Példák a Paste Special beillesztésére az Excel VBA-ban
Az alábbiakban bemutatjuk a VBA speciális paszta példáit.
1. példa - Csak értékek beillesztése a VBA PasteSpecial függvény használatával
Az első példában csak az értékek beillesztését hajtjuk végre a special paste beillesztéssel. Tegyük fel, hogy az alábbiakban az értékesítési adatok nevű lapnévben szereplő adatok szerepelnek.
Most a másolás és beillesztés feladatát több beillesztési speciális módszerrel hajtjuk végre. Kövesse az alábbi lépéseket.
1. lépés: Először hozzon létre egy makrónevet.
2. lépés: Először másolja az A1 és D14 tartományokat az „Értékesítési adatok” lapnévből. A tartomány másolásához alkalmazza az alábbi kódot.
Kód:
Tartomány ("A1: D14"). Másolás
3. lépés: Az adatok másolása után beillesztjük az értékeket G1-től J14-ig. Először utaljon a tartományra.
Kód:
Tartomány ("G1: J14")
4. lépés: A tartomány kiválasztása után be kell illesztenünk. Tehát tegyen egy pontot (.), És válassza a Speciális beillesztés lehetőséget
Kód:
Sub PasteSpecial_Example1 () Tartomány ("A1: D14"). Másolási tartomány ("G1: J14"). PasteSpecial End Sub
5. lépés: A legördülő listából válassza az „xlPasteValues” lehetőséget .
Kód:
Sub PasteSpecial_Example1 () Tartomány ("A1: D14"). Másolási tartomány ("G1: J14"). PasteSpecial xlPasteValues End Sub
6. lépés: Most futtassa ezt a kódot az F5 billentyűvel vagy manuálisan, és nézze meg, mi történik.
Tehát kódunk átmásolta az adatokat A1-től D14-ig, és G1-től J14-ig beillesztette értékként.
Az ALT + E + S + V munkalapon elvégezte az excel gyorsbillentyű feladatát .
2. példa - Az összes beillesztése a VBA PasteSpecial segítségével
Most meglátjuk, mi történik, ha végrehajtjuk az xlPasteAll feladatát.
Kód:
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
- Ha ki akarja hagyni az üres mezőket, alapértelmezés szerint IGAZként kell megadni az argumentumot. HAMIS kell.
- Ha át akarja ültetni az adatokat, akkor az átültetést IGAZként kell kiválasztanunk.
- Egyszerre csak egy paszta különlegességet hajthatunk végre.
