Ko moramo kopirati in prilepiti katere koli podatke v programu Microsoft Excel, imamo na voljo različne bližnjice in orodja na traku v programu Excel. VBA Makro imajo tudi take možnosti namesto možnosti delovnega zvezka. Obravnavali bomo VBA Posebna prilepitev vrednosti in oblike v Excelu.

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za vadbo, ki ga lahko uporabljate med branjem tega članka.

Vrednosti in formati z uporabo PasteSpecial.xlsm

9 primerov za kopiranje vrednosti in formatov s posebnim načinom lepljenja v Excelu VBA

V tem članku bomo razpravljali o 9 metod z Makri VBA za Posebna prilepitev vrednosti in obliko v Excelu.

V ta namen bomo upoštevali spodnji nabor podatkov.

1. Uporaba posebnega vnosnega polja v VBA Paste za kopiranje vrednosti in formatov

V tem primeru bomo uporabili možnost InputBox za Posebna prilepitev .

Korak 1:

• Pojdite na Razvijalec zavihek.
• Kliknite na Makro zapisa .
• Nastavite Excel_Paste_Special_1 kot Ime makra .
• Nato pritisnite V REDU .

Korak 2:

• Zdaj kliknite na Makroji ukaz.
• Izberite Makro in nato pritisnite Vstopite v .

Korak 3:

• Kopirajte in prilepite naslednjo kodo v ukazni modul.

 Sub Excel_Paste_Special_1() Dim Copy_Cell As Range, Paste_Cell As Range xTitleId = "Salary_Sheet" Set Copy_Cell = Application.Selection Set Copy_Cell = Application.InputBox("Izberite obseg za kopiranje :", xTitleId, Copy_Cell.Address, Type:=8) Set Paste_Cell = Application.InputBox("Prilepite v katero koli prazno celico:", xTitleId, Type:=8) Copy_Cell.Copy Paste_Cell.Parent.Activate Paste_Cell.PasteSpecialxlPasteValuesAndNumberFormats Paste_Cell.PasteSpecial xlPasteFormats Application.CutCopyMode = False End Sub 

4. korak:

• Pritisnite F5 za zagon kode.
• Pojavilo se bo novo pogovorno okno. V njem izberite območje vira.
• Nato pritisnite V REDU .

5. korak:

• Pojavilo se bo drugo pogovorno okno. Izberite prazno območje, kamor boste prilepili kopirane celice.

Zdaj si oglejte nabor podatkov.

Vsi podatki se kopirajo z vrednostmi in oblikami z uporabo VBA Posebna prilepitev .

Preberite več: Kako uporabiti VBA PasteSpecial in ohraniti oblikovanje vira v Excelu

2. Vstavljanje obsega celic z vrednostmi in oblikami z uporabo xlPasteAllUsingSourceTheme v programu VBA Paste Special

Razpon celic bomo vstavili neposredno na VBA kodo v tem razdelku.

Korak 1:

• Pritisnite Alt+F11 za vstop v ukazni modul.
• V ukazni modul vnesite naslednjo kodo.

 Sub Excel_Paste_Special_2() Območje("B4:C9").Copy Območje("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Korak 2:

• Zdaj pritisnite F5 za zagon kode.

Na spletni strani . xlPasteAllUsingSourceTheme kopira natančen dvojnik izvornih podatkov.

Preberite več: Excel VBA: Kopiranje vrednosti celice in prilepitev v drugo celico

3. Uporaba spremenljivke VBA za vstavljanje obsega z vrednostmi in oblikami z uporabo posebne lepljenke

Prikazali bomo uporabo spremenljivk v VBA Posebna prilepitev kodo najdete tukaj.

Korak 1:

• Najprej vstopite v ukazni modul tako, da pritisnete Alt+F11 .
• V ukazni modul zapišite spodnjo kodo.

 Sub Excel_Paste_Special_3() Dim source_rng As Range, paste_rng As Range Set source_rng = Range("B4:C9") Set paste_rng = Range("E4") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Korak 2:

• Pritisnite F5 in zaženite kodo.

Preberite več: Excel VBA: Kopiranje območja v drugo delovno knjižico

4. Uporabite xlPasteValues in xlPasteFormats za kopiranje vrednosti in formatov v drugem listu, pri čemer se formati ne spremenijo

Zgornji metodi sta bili uporabljeni za kopiranje in lepljenje podatkov v istem listu. Zdaj bomo pokazali, kako uporabiti VBA Posebna prilepitev za različne liste.

Korak 1:

• V ukazni modul vstopite s klikom na Alt+F11 in vanj kopirajte naslednjo kodo.

 Private Sub Excel_Paste_Special_4() Application.ScreenUpdating = False Dim source_rng As Worksheet Dim paste_rng As Worksheet Set source_rng = Worksheets("Data_Set") Set paste_rng = Worksheets("Different_Sheet") Set Destination = paste_rng.Range("B2") source_rng.Range("B2:C9").Copy Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormatsApplication.CutCopyMode = False Application.ScreenUpdating = True End Sub 

Korak 2:

• Pritisnite F5 za zagon kode.

Vidimo, da so podatki o Data_Set se kopira v Different_Sheet .

Preberite več: Kako uporabiti VBA PasteSpecial za formule in formate v Excelu (3 načini)

Podobna branja

• Kako kopirati več celic v drug list v Excelu (9 metod)
• Razlika med vstavljanjem in posebnim vstavljanjem v Excelu
• Excel VBA za kopiranje podatkov iz drugega delovnega zvezka brez odpiranja
• Kako kopirati in prilepiti v Excelu ter ohraniti velikost celic (7 primerov)
• Kopiranje in prilepljanje vrednosti v naslednjo prazno vrstico s programom Excel VBA (3 primeri)

5. Uporabite xlPasteFormats, da prilepite samo formate

V prejšnjih metodah smo kopirali celotne podatke in jih prilepili brez sprememb. V tem razdelku pa bomo kopirali samo obliko podatkov.

Korak 1:

• V ukazni modul preidete tako, da pritisnete Alt+F11 .
• Kopirajte in prilepite spodnjo kodo v ukazni modul.

 Sub Excel_Paste_Special_5() Območje("B2:C9").Copy Območje("E2").PasteSpecial xlPasteFormats End Sub 

Korak 2:

• Zdaj pritisnite tipko F5 in zaženite kodo.

Oglejte si nabor podatkov. Kopirajo se samo formati, vrednosti niso prisotne.

Preberite več: Kako kopirati in prilepiti v Excelu, ne da bi spremenili obliko

6. Uporabite xlPasteValues, da prilepite samo vrednosti

Vrednosti lahko kopiramo samo z uporabo VBA Posebna prilepitev .

Korak 1:

• Pritisnite Alt+F11 za vstop v ukazni modul.
• V ukazni modul zapišite naslednjo kodo.

 Sub Excel_Paste_Special_6() Razpon("B4:C9").Copy Razpon("E4").PasteSpecial xlPasteValues End Sub 

Korak 2:

• Kliknite na F5 in zaženite kodo.

Oglejte si nabor podatkov. Tu se kopirajo samo vrednosti. Pri tej metodi se ne kopirajo formati.

Preberite več: Kako uporabiti VBA za prilepitev samo vrednosti brez oblikovanja v Excelu

7. Kopiranje in prilepljanje celotne vsebine ene celice

V prejšnjih razdelkih smo kopirali območje podatkov. Tukaj bomo kopirali samo eno celico.

Korak 1:

• Zdaj pritisnite Alt+F11 in vstopite v ukazni modul.
• V modul vnesite naslednjo kodo.

 Sub Excel_Paste_Special_7() Območje("B4").Copy Območje("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Korak 2:

• Zdaj pritisnite tipko F5 za zagon kode.

Vidimo lahko, da je tukaj kopirana ena celica in ne območje.

Preberite več: Formula za kopiranje in lepljenje vrednosti v Excelu (5 primerov)

8. Kopiranje in lepljenje vseh atributov določenega stolpca z VBA

Podobno kot eno celico lahko kopiramo en sam stolpec v podatkovnem nizu.

Korak 1:

• Preprosto pritisnite Alt+F11 za vstop v ukazni modul.
• V modul vpišite spodnjo kodo.

 Sub Excel_Paste_Special_8() Dim source_rng As Range, paste_rng As Range Set source_rng = Columns("C") Set paste_rng = Columns("E") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Korak 2:

• Kodo zaženite tako, da pritisnete F5 .

Tu lahko vidimo, da Stolpec B se kopira v Stolpec E .

Preberite več: [Popravljeno]: Kopiranje in prilepljanje z desnim klikom ne delujeta v Excelu (11 rešitev)

9. Kopiranje in prilepljanje vseh atributov vrstice z Excelovim programom VBA

Podobno lahko kopiramo eno vrstico z uporabo Posebna prilepitev .

Korak 1:

• Kliknite na Alt+F11 za vstop v modul ukazov.
• V ukazni modul kopirajte naslednjo kodo.

 Sub Excel_Paste_Special_9() Dim source_rng As Range, paste_rng As Range Set source_rng = Rows("4") Set paste_rng = Rows("11") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Korak 2:

• Kodo zaženite tako, da pritisnete F5 .

Tukaj, Vrstica 4 se kopira v Vrstica 11 .

Preberite več: Kako kopirati več vrstic v Excelu z uporabo makra (4 primeri)

Zaključek

V tem članku smo razložili 9 metode VBA Vstavi posebne vrednosti in oblike v Excelu. Upam, da bo to zadovoljilo vaše potrebe. Oglejte si našo spletno stran Exceldemy.com in podajte svoje predloge v polju za komentarje.