Kopiera markering till ett databasark med VBA i Microsoft Excel

Anonim

När vi skriver VBA -kodning för att rädda oss från det repetitiva arbetet spelar val av data en mycket viktig roll. Så i den här artikeln lär du dig hur du väljer data efter rad, kolumn och hela dokumentdata genom VBA -kodning i Microsoft Excel.

Du lär dig:

  • Hur väljer jag hela kolumnen?
  • Hur väljer jag hela raden?
  • Hur väljer jag hela data?

Hur väljer jag hela kolumnen via VBA?

Vi har data i intervallet A1: C19, där kolumn A innehåller namn, kolumn B kön och kolumn C innehåller ålder.

För att välja hela kolumnen A i dessa data, följ nedanstående steg och kod:-

  • Öppna VBA -sidan tryck på tangenten Alt+F11
  • Sätt i en modul
  • Skriv koden nedan:
 Underkolumner Välj () Område ("A1"). Hela kolumnen. Välj Avsluta sub 
  • Tryck på tangenten F5 för att köra makrot i Excel
  • Kolumn A kommer att väljas

Om du vill att data ska väljas till den sista aktiva cellen i kolumnen, följ nedanstående steg och kod:-

  • Skriv koden nedan:-
 Underkolumnvälj () lastrow = Arbetsblad ("Sheet1"). Celler (Rader.räkning, 1) .Sluta (xlUp) .Rad Worksheets ("Sheet1"). Range ("A1: A" & lastrow) .Välj End Sub 

Kod Förklaring:- Först definierar vi den som kommer att vara den sista aktiva cellen i data, och sedan den sista raden kommer vi att använda för att definiera intervallet i kodning.

  • Tryck på tangenten F5 för att köra makrot i Excel
  • Kolumn A1: A19 kommer att väljas

På detta sätt genom att använda VBA kan du välja koden för att välja kolumnen till sista aktiva cellen. När vi inte vet vad den sista aktiva cellen är kan vi använda den här koden medan vi skriver VBA -koden för urvalet i Microsoft Excel.

Hur väljer man hela raden genom VBA?

Vi har data i intervallet A1: C19, där kolumn A innehåller namn, kolumn B kön och kolumn C innehåller ålder.

För att välja hela raden i dessa data, följ nedanstående steg och kod:-

  • Öppna VBA -sidan tryck på tangenten Alt+F11
  • Sätt i en modul
  • Skriv koden nedan:-
 Sub rader välj () Område ("A2"). EntireRow.Select End Sub 
  • Tryck på tangenten F5 för att köra makrot i Excel
  • Kolumn A kommer att väljas


Om du vill att data ska väljas till den sista aktiva cellen att rad, följ nedanstående steg och kod:-

  • Skriv koden nedan:-
 Under raden välj () Dim lastcolumn As Long lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns.count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (1, lastcolumn) )) .Välj Avsluta sub 

Kod Förklaring: I den här koden hade vi definierat den sista kolumnen först, sedan använder vi den för att definiera intervallet.

  • Tryck på F5 för att köra makrot i Excel
  • Första raden kommer att väljas till den sista aktiva cellen i raden

På detta sätt kan vi välja hela raden eller markera raden till den sista aktiva cellen i Microsoft Excel via VBA.

Hur väljer man hela data via VBA?

Låt oss ta ett exempel och förstå:-

Vi har data i intervallet A1: C19, där kolumn A innehåller namn, kolumn B kön och kolumn C innehåller ålder.


För att välja data från den första cellen till den sista aktiva cellen, följ nedanstående steg och kod:-

  • Öppna VBA -sidan tryck på tangenten Alt+F11
  • Sätt i en modul
  • Skriv koden nedan:
 Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1). End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns) .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Välj End Sub 

Kod Förklaring: Först har vi definierat ämnesnamnet för kod, sedan har vi definierat alla variabler. Sedan har vi definierat vad som skulle vara vår sista rad och sista kolumn.

  • Tryck på tangenten F5 för att köra makrot i Excel
  • I kalkylbladet kommer alla data att väljas

Om du nu vill kopiera samma data och klistra in den använder du koden nedan:-

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

Kör koden all information kommer att kopieras och klistras in i sheet2.

Detta är hur vi kan skriva makrot för att välja data från första cellen till sista aktiva cellen och sedan klistra in i ett annat ark i Microsoft Excel.

Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.

Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen.