Kad mums ir nepieciešams kopēt un ielīmēt jebkurus datus programmā Microsoft Excel, mums ir pieejami dažādi īsceļu un lentes rīki programmā Excel. Excel. VBA Makro arī ir šādas iespējas, nevis darbgrāmatas iespējas. Mēs apspriedīsim VBA Īpašais ielīmēšanas iestatījums vērtības un formātus programmā Excel.

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

Vērtības un formāti, izmantojot PasteSpecial.xlsm

9 piemēri, kā kopēt vērtības un formātus ar Paste Special programmā Excel VBA

Šajā rakstā mēs aplūkosim 9 metodes ar VBA makrouzdevumi, lai Īpašais ielīmēšanas veids vērtības un formātu programmā Excel.

Šim nolūkam mēs aplūkosim turpmāk minēto datu kopu.

1. Pielietojiet InputBox programmā VBA īpašo funkciju Paste, lai kopētu vērtības un formātus

Šajā piemērā mēs izmantosim opciju InputBox, lai Īpašais ielīmēšanas veids .

1. solis:

• Dodieties uz Izstrādātājs cilne.
• Noklikšķiniet uz Ierakstīt makroreaktoru .
• Komplekts Excel_Paste_Special_1 kā Makro nosaukums .
• Pēc tam nospiediet LABI .

2. solis:

• Tagad noklikšķiniet uz Makroprocesori komanda.
• Izvēlieties Makro un pēc tam nospiediet Solis iekšā .

3. solis:

• Kopējiet un ielīmējiet komandu modulī šādu kodu.

 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("Izvēlieties diapazonu kopēšanai :", xTitleId, Copy_Cell.Address, Type:=8) Set Paste_Cell = Application.InputBox("Ielīmējiet uz jebkuru tukšu šūnu:", xTitleId, Type:=8) Copy_Cell.Copy Paste_Cell.Parent.Activate Paste_Cell.PasteSpecialxlPasteValuesAndNumberFormats Paste_Cell.PasteSpecial xlPasteFormats Application.CutCopyMode = False End Sub 

4. solis:

• Preses F5 lai palaistu kodu.
• Parādīsies jauns dialoglodziņš. Šajā lodziņā atlasiet avota diapazonu.
• Pēc tam nospiediet LABI .

5:

• Parādīsies vēl viens dialoglodziņš. Izvēlieties tukšu diapazonu, kurā ielīmēt kopētās šūnas.

Tagad aplūkojiet datu kopu.

Visi dati tiek kopēti ar vērtībām un formātiem, izmantojot VBA Īpašais ielīmēšanas iestatījums .

Lasīt vairāk: Kā lietot VBA PasteSpecial un saglabāt avota formatējumu programmā Excel

2. Ievietot šūnu diapazonu ar vērtībām un formātiem, izmantojot xlPasteAllUsingSourceTheme programmā VBA Paste Special

Mēs ievietosim šūnu diapazonu tieši VBA kods šajā sadaļā.

1. solis:

• Preses Alt+F11 lai ievadītu komandu moduli.
• Komandu modulī ievietojiet šādu kodu.

 Sub Excel_Paste_Special_2() Range("B4:C9").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

2. solis:

• Tagad nospiediet F5 lai palaistu kodu.

Šis xlPasteAllUsingSourceTheme komanda kopē precīzu avota datu dublikātu.

Lasīt vairāk: Excel VBA: šūnu vērtības kopēšana un ielīmēšana citā šūnā

3. Izmantojiet VBA mainīgo, lai ievietotu diapazonu ar vērtībām un formātiem, izmantojot īpašo ielīmēšanas funkciju

Mēs parādīsim, kā izmantot mainīgos lielumus. VBA Īpašais ielīmēšanas iestatījums kodu šeit.

1. solis:

• Vispirms ievadiet komandu moduli, nospiežot Alt+F11 .
• Komandu modulī ierakstiet tālāk norādīto kodu.

 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 

2. solis:

• Spiediet F5 un palaidiet kodu.

Lasīt vairāk: Excel VBA: diapazona kopēšana citā darbgrāmatā

4. Izmantojiet xlPasteValues un xlPasteFormats, lai kopētu vērtības un formātus citā lapā, saglabājot formātus nemainīgus.

Iepriekš minētās metodes tika izmantotas datu kopēšanai un ielīmēšanai vienā lapā. Tagad mēs parādīsim, kā izmantot VBA Īpašais ielīmēšanas iestatījums dažādām loksnēm.

1. solis:

• Ievadiet komandu moduli, noklikšķinot uz Alt+F11 un nokopējiet tajā šādu kodu.

 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 

2. solis:

• Preses F5 lai palaistu kodu.

Mēs redzam, ka dati par Data_Set tiek kopēts uz Different_Sheet .

Lasīt vairāk: Kā lietot VBA PasteSpecial formulām un formātiem programmā Excel (3 veidi)

Līdzīgi lasījumi

• Kā kopēt vairākas šūnas uz citu Excel lapu (9 metodes)
• Atšķirība starp Paste un Paste Special programmā Excel
• Excel VBA, lai kopētu datus no citas darbgrāmatas bez atvēršanas
• Kā kopēt un ielīmēt programmā Excel un saglabāt šūnu lielumu (7 piemēri)
• Vērtību kopēšana un ielīmēšana uz nākamo tukšo rindu, izmantojot Excel VBA (3 piemēri)

5. Izmantojiet xlPasteFormats, lai ielīmētu tikai formātus

Iepriekšējās metodēs mēs kopējām visus datus un ielīmējām tos bez izmaiņām. Bet šajā sadaļā mēs kopēsim tikai datu formātu.

1. solis:

• Pārejiet uz komandu moduli, nospiežot Alt+F11 .
• Kopējiet un ielīmējiet tālāk norādīto kodu komandu modulī.

 Sub Excel_Paste_Special_5() Range("B2:C9").Copy Range("E2").PasteSpecial xlPasteFormats End Sub 

2. solis:

• Tagad nospiediet F5 pogu un palaidiet kodu.

Aplūkojiet datu kopu. Ir kopēti tikai formāti, vērtības šeit nav iekļautas.

Lasīt vairāk: Kā kopēt un ielīmēt programmā Excel, nemainot formātu

6. Izmantojiet xlPasteValues, lai ielīmētu tikai vērtības

Vērtības varam kopēt, tikai izmantojot VBA Īpašais ielīmēšanas iestatījums .

1. solis:

• Spiediet Alt+F11 lai ievadītu komandu moduli.
• Komandu modulī ierakstiet šādu kodu.

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

2. solis:

• Noklikšķiniet uz F5 un palaidiet kodu.

Ievērojiet datu kopu. Šeit tiek kopētas tikai vērtības. Šajā metodē netiek kopēti formāti.

Lasīt vairāk: Kā izmantot VBA, lai programmā Excel ielīmētu tikai vērtības bez formatēšanas

7. Kopēt un ielīmēt visu vienas šūnas saturu

Iepriekšējās sadaļās mēs kopējām datu diapazonu. Šeit mēs kopēsim tikai vienu šūnu.

1. solis:

• Tagad nospiediet Alt+F11 un ievadiet komandu moduli.
• Ievadiet modulī šādu kodu.

 Sub Excel_Paste_Special_7() Range("B4").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

2. solis:

• Tagad nospiediet F5 pogu, lai palaistu kodu.

Var redzēt, ka šeit tiek kopēta viena šūna, nevis diapazons.

Lasīt vairāk: Vērtību kopēšanas un ielīmēšanas formula programmā Excel (5 piemēri)

8. Kopēt un ielīmēt visus konkrētas kolonnas atribūtus, izmantojot VBA

Tāpat kā vienu šūnu, mēs varam kopēt vienu datu kopas sleju.

1. solis:

• Vienkārši nospiediet Alt+F11 lai ievadītu komandu moduli.
• Ierakstiet modulī turpmāk norādīto kodu.

 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 

2. solis:

• Palaidiet kodu, nospiežot F5 .

Šeit mēs redzam, ka B sleja tiek kopēts uz E sleja .

Lasīt vairāk: [Labots]: Excel programmā nedarbojas kopēšana un ielīmēšana ar peles labo taustiņu (11 risinājumi)

9. Kopējiet un ielīmējiet visus rindas atribūtus, izmantojot Excel VBA

Līdzīgi mēs varam kopēt vienu rindu, izmantojot Īpašais ielīmēšanas veids .

1. solis:

• Noklikšķiniet uz Alt+F11 lai ievadītu komandu moduli.
• Komandu modulī nokopējiet šādu kodu.

 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 

2. solis:

• Palaidiet kodu, nospiežot F5 .

Šeit, 4 rinda tiek kopēts uz 11. rinda .

Lasīt vairāk: Kā kopēt vairākas rindas programmā Excel, izmantojot makro (4 piemēri)

Secinājums

Šajā rakstā mēs esam izskaidrojuši 9 VBA metodes Ielīmējiet īpašās vērtības un formātus programmā Excel. Es ceru, ka tas apmierinās jūsu vajadzības. Lūdzu, apskatiet mūsu tīmekļa vietni. Exceldemy.com un sniedziet savus ieteikumus komentāru lodziņā.