Kopier markering til et databaseark ved hjælp af VBA i Microsoft Excel

Indholdsfortegnelse

Når vi skriver VBA -kodningen for at redde os selv fra det gentagne arbejde, spiller valg af data en meget vigtig rolle. Så i denne artikel lærer du, hvordan du vælger data efter række, kolonne og hele dokumentdata via VBA -kodning i Microsoft Excel.

Du lærer:

  • Hvordan vælger man hele kolonnen?
  • Hvordan vælger man hele rækken?
  • Hvordan vælger man hele data?

Hvordan vælger man hele kolonnen gennem VBA?

Vi har data i området A1: C19, hvor kolonne A indeholder navn, kolonne B Køn og kolonne C indeholder alder.

For at vælge hele kolonnen A i disse data skal du følge nedenstående trin og kode:-

  • Åbn VBA -side tryk på tasten Alt+F11
  • Indsæt et modul
  • Skriv nedenstående kode:
 Underkolonne vælg () Område ("A1"). Hele kolonnen. Vælg Afslut sub 
  • Tryk på tasten F5 for at køre makroen i Excel
  • Kolonne A vælges

Hvis du vil have data skal vælges indtil den sidste aktive celle i kolonnen, skal du følge nedenstående trin og kode:-

  • Skriv nedenstående kode:-
 Underkolonne vælg () lastrow = Regneark ("Ark1"). Celler (rækker.tælling, 1). Afslut (xlUp) .Række regneark ("Ark1"). Område ("A1: A" og sidste række) .Vælg Slut under 

Kode Forklaring:- Først vil vi definere, hvad der vil være den sidste aktive celle i data, og derefter sidste række vil vi bruge til at definere området i kodning.

  • Tryk på tasten F5 for at køre makroen i Excel
  • Kolonne A1: A19 vælges

På denne måde ved at bruge VBA kan du vælge koden for at vælge kolonnen indtil sidste aktive celle. Når vi ikke ved, hvad den sidste aktive celle er, kan vi bruge denne kode, mens vi skriver VBA -koden til markeringen i Microsoft Excel.

Hvordan vælger man hele rækken gennem VBA?

Vi har data i området A1: C19, hvor kolonne A indeholder navn, kolonne B Køn og kolonne C indeholder alder.

Følg nedenstående givne trin og kode for at vælge hele rækken i disse data:-

  • Åbn VBA -side tryk på tasten Alt+F11
  • Indsæt et modul
  • Skriv nedenstående kode:-
 Underrække vælg () Område ("A2"). EntireRow.Select End Sub 
  • Tryk på tasten F5 for at køre makroen i Excel
  • Kolonne A vælges


Hvis du vil have data skal vælges indtil den sidste aktive celle til række skal du følge nedenstående trin og kode:-

  • Skriv nedenstående kode:-
 Underrække vælg () Dim lastcolumn As Long lastcolumn = Regneark ("Sheet1"). Celler (1, Columns.count). End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (1, lastcolumn) )). Vælg Afslut sub 

Kode Forklaring: I denne kode havde vi først defineret den sidste kolonne, så vil vi bruge det til at definere området.

  • Tryk på F5 for at køre makroen i Excel
  • Første række bliver valgt indtil den sidste aktive celle i rækken

På denne måde kan vi vælge hele rækken eller vælge rækken indtil den sidste aktive celle i Microsoft Excel via VBA.

Hvordan vælger man hele data via VBA?

Lad os tage et eksempel og forstå:-

Vi har data i området A1: C19, hvor kolonne A indeholder navn, kolonne B Køn og kolonne C indeholder alder.


For at vælge dataene fra den første celle til den sidste aktive celle skal du følge nedenstående trin og kode:-

  • Åbn VBA -side tryk på tasten Alt+F11
  • Indsæt et modul
  • Skriv nedenstående kode:
 Subselectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Celler (Rows.count, 1). End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns) .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Vælg End Sub 

Kode Forklaring: Først har vi defineret emnetavnet for kode, derefter har vi defineret alle variablerne. Så har vi defineret, hvad der ville være vores sidste række og sidste kolonne.

  • Tryk på tasten F5 for at køre makroen i Excel
  • I regnearket bliver alle data valgt

Hvis du vil kopiere de samme data og indsætte dem, skal du bruge nedenstående kode:-

 Subselectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Celler (Rows.count, 1). End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns) .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Copy Sheets ("Sheet2"). Range ("A1") End Sub 

Kør koden alle data bliver kopieret og indsat i ark2.

Dette er den måde, vi kan skrive makroen til at vælge data fra første celle til sidste aktive celle og derefter indsætte i et andet ark i Microsoft Excel.

Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.

Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet.

Du vil bidrage til udviklingen af ​​hjemmesiden, at dele siden med dine venner

wave wave wave wave wave