Copiați selecția într-o foaie de bază de date utilizând VBA în Microsoft Excel

Anonim

Când scriem codarea VBA pentru a ne salva de lucrările repetitive, selectarea datelor joacă un rol foarte important. Deci, în acest articol veți învăța cum să selectați datele pe rând, pe coloană și pe toate documentele prin codificare VBA în Microsoft Excel.

Veți învăța:

  • Cum se selectează întreaga coloană?
  • Cum se selectează întregul rând?
  • Cum se selectează date întregi?

Cum se selectează întreaga coloană prin VBA?

Avem date în intervalul A1: C19, în care coloana A conține Nume, coloana B Sex și coloana C conține Vârstă.

Pentru a selecta întreaga coloană A din aceste date, urmați pașii și codul de mai jos: -

  • Deschideți pagina VBA, apăsați tasta Alt + F11
  • Introduceți un modul
  • Scrieți codul menționat mai jos:
 Sub Columnselect () Range ("A1"). Întreaga coloană. Selectați End Sub 
  • Apăsați tasta F5 pentru a rula Macro în Excel
  • Coloana A va fi selectată

Dacă doriți ca datele să fie selectate până la ultima celulă activă din coloană, urmați pașii și codul menționați mai jos: -

  • Scrieți codul menționat mai jos: -
 Sub Columnselect () lastrow = Foi de lucru ("Sheet1"). Celule (Rows.count, 1). End (xlUp). Row Worksheets ("Sheet1"). Range ("A1: A" & lastrow). Selectați End Sub 

Explicarea codului: - Mai întâi vom defini care va fi ultima celulă activă din date, iar apoi ultimul rând îl vom folosi pentru a defini intervalul în codificare.

  • Apăsați tasta F5 pentru a rula Macro în Excel
  • Coloana A1: A19 va fi selectată

În acest fel, utilizând VBA, puteți selecta codul pentru a selecta coloana până la ultima celulă activă. Când nu știm care este ultima celulă activă, putem folosi acest cod în timp ce scriem codul VBA pentru selecție în Microsoft Excel.

Cum se selectează întregul rând prin VBA?

Avem date în intervalul A1: C19, în care coloana A conține Nume, coloana B Sex și coloana C conține Vârstă.

Pentru a selecta întregul rând din aceste date, urmați pașii și codul de mai jos: -

  • Deschideți pagina VBA, apăsați tasta Alt + F11
  • Introduceți un modul
  • Scrieți codul menționat mai jos: -
 Sub rânduri selectați () Interval ("A2"). Întreg rând. Selectați Încheiere sub 
  • Apăsați tasta F5 pentru a rula Macro în Excel
  • Coloana A va fi selectată


Dacă doriți ca datele să fie selectate până la ultima celulă activă pe rând urmați pașii și codul menționați mai jos: -

  • Scrieți codul menționat mai jos: -
 Sub rânduri selectați () Dim lastcolumn As Long lastcolumn = Foi de lucru ("Sheet1"). Celule (1, Columns.count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (1, lastcolumn )). Selectați End Sub 

Explicarea codului: În acest cod am definit mai întâi ultima coloană, apoi o vom folosi pentru a defini intervalul.

  • Apăsați F5 pentru a rula Macro în Excel
  • Primul rând va fi selectat până la ultima celulă activă din rând

În acest fel putem selecta întregul rând sau selectăm rândul până la ultima celulă activă din Microsoft Excel prin VBA.

Cum se selectează date întregi prin VBA?

Să luăm un exemplu și să înțelegem: -

Avem date în intervalul A1: C19, în care coloana A conține Nume, coloana B Sex și coloana C conține Vârstă.


Pentru a selecta datele de la prima celulă la ultima celulă activă, urmați pașii și codul de mai jos: -

  • Deschideți pagina VBA, apăsați tasta Alt + F11
  • Introduceți un modul
  • Scrieți codul menționat mai jos:
 Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Foi de lucru ("Sheet1"). Celule (Rows.count, 1). End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Celule (1, Coloane .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Selectați End Sub 

Explicarea codului: Mai întâi am definit numele subiectului codului, apoi am definit toate variabilele. Apoi am definit care ar fi ultimul nostru rând și ultima coloană.

  • Apăsați tasta F5 pentru a rula Macro în Excel
  • În foaia de lucru toate datele vor fi selectate

Acum, dacă doriți să copiați aceleași date și să le lipiți, folosiți codul de mai jos: -

 Sub Selectionoflastcell () Dim lastrow As Long, lastcolumn As Long lastrow = Foi de lucru ("Sheet1"). Celule (Rows.count, 1). End (xlUp) .Row lastcolumn = Worksheets ("Sheet1"). Celule (1, Coloane .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Copy Sheets ("Sheet2"). Range ("A1") End Sub 

Rulați codul, toate datele vor fi copiate și lipite în foaia2.

Acesta este modul în care putem scrie macrocomanda pentru selectarea datelor de la prima celulă la ultima celulă activă și apoi lipiți în altă foaie în Microsoft Excel.

Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.

Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail.