VBA kopiju ielīmēšana - Galvenie veidi, kā kopēt un ielīmēt VBA (ar piemēriem)

Satura rādītājs

Kopēt ielīmēšanu VBA ir līdzīgs tam, ko mēs darām Excel darblapā, piemēram, mēs varam kopēt vērtību un ielīmēt to citā šūnā, kā arī mēs varam izmantot īpašo ielīmēšanu, lai ielīmētu tikai vērtības, līdzīgi VBA mēs izmantojam kopēšanas metodi ar diapazona īpašību nokopējiet vērtību no vienas šūnas uz citu un, lai ielīmētu vērtību, mēs izmantojam darblapas funkciju paste special vai paste metodi.

Kā kopēt ielīmēšanu VBA?

Zemāk ir daži piemēri, kā kopēt un ielīmēt programmā Excel, izmantojot VBA.

Pamata lieta, ko mēs darām programmā Excel, mēs kopējam, izgriežam un ielīmējam datus no vienas šūnas uz citu šūnu. Tas arī neprasa īpašu ievadu. Tomēr, lai gan apgūt VBA kodēšanu, ir svarīgi saprast to pašu jēdzienu kodēšanas valodā. Kopēšanas ielīmēšana VBA ir ikdienas uzdevums, ko mēs katru dienu veicam programmā Excel. Lai vispirms kopētu, mums jāizlemj, kuru šūnu kopēt.

1. piemērs - vērtību kopēšana un ielīmēšana, izmantojot diapazona objektu

Pieņemsim, ka šūnā A1 ir vārds “Excel VBA”.

Pieņemsim, ka, piemēram, ja vēlaties kopēt šūnu A1, mēs varam izmantot objektu VBA RANGE.

Kods:

Apakškopijas_piemērs () diapazons ("A1"). Beigu apakšnodaļa

Brīdī, kad jūs atsaucaties uz šūnu, mēs varam redzēt visas īpašības un metodes ar to. Tāpēc izvēlieties metodi “ Kopēt”.

Kods:

Apakškopijas_piemērs () diapazons ("A1"). Kopēšanas beigu apakškopa

Pēc metodes izvēles nospiediet atstarpes taustiņu, lai redzētu kopēšanas metodes argumentu.

Tajā teikts Galamērķis.

Tas nav nekas, bet kur vēlaties kopēt un ielīmēt vērtības VBA, neizvēloties PASTE metodi.

Ja mēs ielīmējam vienā un tajā pašā lapā, mēs varam atlasīt šūnu, izmantojot objektu Range. Pieņemsim, ka, ja mēs vēlamies ielīmēt vērtību B3 šūnā, mēs galamērķi varam ievietot kā “Range (“ B3 ”).”

Kods:

Apakškopijas_piemērs () diapazons ("A1"). Kopēšanas galamērķis: = diapazons ("B3") beigu apakšdaļa

Tas kopēs datus no šūnas A1 un ielīmēs šūnā B3.

Datu ielīmēšanai mēs varam izmantot arī šo metodi.

Kods:

Apakškopijas_piemērs () diapazons ("A1"). Kopēšanas diapazons ("B3"). Atlasiet ActiveSheet.Paste End Sub

Pirmkārt, mēs kopēsim un atlasīsim datus no šūnas A1 un ielīmēsim šūnā B3.

2. piemērs - kopēšana uz citu darblapu tajā pašā darbgrāmatā

Tagad, ja mēs vēlamies kopēt-ielīmēt vērtību no dažādām darblapām, izmantojot VBA makro, tad argumentā Galamērķis mums ir jāatsaucas uz lapas nosaukumu, izmantojot objektu DARBA LAPAS, pēc tam jāpiemin šūnu diapazons šajā DARBA LAPĀ. Tālāk kods veiks darbu.

Kods:

Sub Copy_Example () diapazons ("A1"). Copy Destination: = darblapas ("Sheet2"). Diapazons ("B3") Beigas Sub

Ja mēs vēlamies kopēt datus no konkrētas lapas un vēlamies ielīmēt citā konkrētā lapā, mums jāpiemin abi lapu nosaukumi.

Pirmkārt, mums jāpiemin kopēšanas lapa.

Darblapas ("1. lapa"). Diapazons ("A1"). Kopēt

Tad argumentā Galamērķis mums jāpiemin mērķa darblapas nosaukums un šūnas diapazons.

Galamērķis: = darblapas ("Sheet2"). Diapazons ("B3")

Tātad kodam vajadzētu patikt šim.

Kods:

Sub Copy_Example () darblapas ("Sheet1"). Diapazons ("A1"). Copy Destination: = darblapas ("Sheet2"). Diapazons ("B3") End Sub

3. piemērs - kopēšana no vienas darbgrāmatas uz citu darbgrāmatu

Mēs esam redzējuši, kā kopēt no darblapas uz citu darblapu tajā pašā darbgrāmatā. Bet mēs to varam izdarīt arī no vienas darbgrāmatas uz otru.

Apskatiet zemāk esošo kodu.

Kods:

SubCopy_Example () darbgrāmatas ("Book 1.xlsx"). Darblapas ("Sheet1"). Diapazons ("A1"). Darbgrāmatu kopēšana ("Book 2.xlsx"). Aktivizējiet ActiveWorkbook.Worksheets ("2. lapa"). Atlasiet ActiveSheet.Paste End Sub

Pirmkārt, tas kopēs datus no darblapas “Sheet1” darbgrāmatā “Book1.xlsx” no šūnas A1.

“Workbooks("Book 1.xlsx").Worksheets("Sheet1").Range("A1").Copy”

Then it will activate the workbook “Book 2.xlsx”.

Workbooks("Book 2.xlsx").Activate

In the active workbook, it will select the worksheet “Sheet 2.”

ActiveWorkbook.Worksheets("Sheet 2").Select

Now in the active sheet, it will paste.

ActiveSheet.Paste

Alternative Way for using Copy-Paste in VBA

We have one more alternative way of having the data from one cell to another cell. Assume you have the word “Excel VBA” in the cell A1 and you need the same to come in cell B3.

One method we have seen is using the VBA copy and paste method. Now I will show you one of the alternative ways. Look at the below piece of code to understand.

Code:

Sub Copy_Example1() Range("A1").Value = Range("B3").Value End Sub

The above says whatever the value is there in the cell A1 should be equal to the value in the cell B3.

Range("A1").Value = Range("B3").Value

Even though this is not a copy and paste method still adds more value to our coding knowledge.

Top Ways of VBA Copy and Paste as Values

Now we will see different ways of VBA copy and paste values. Assume you are in the cell A1 as shown in the below image.

  • If we want to copy and paste, we need to reference the cell here. Rather we can just use a property of Selection. Copy method.

Code:

Sub Copy_Example1() Selection.Copy Destination:=Range("B3") End Sub

OR

Sub Copy_Example1() ActiveCell.Copy Destination:=Range("B3") End Sub
  • If you want to copy the entire used range of the worksheet, you can use the below code.

Code:

Sub Copy_Example2 () darblapas ("Sheet1"). UsedRange.Copy Destination: = darblapas ("Sheet2"). Diapazons ("A1") Beigas Sub

Tas nokopēs visu izmantoto diapazonu darblapā “Sheet1” un to pašu ielīmēs darblapā “Sheet2”.

Interesanti raksti...