Inserarea unui rând în VBA este oarecum diferită de introducerea unei coloane în VBA, în coloane am folosit întreaga metodă a coloanei, dar pentru a insera rânduri folosim metoda foii de lucru cu comanda insert pentru a insera un rând, oferim și o referință de rând unde dorim să inserăm un alt rând similar cu coloanele.
Introduceți Row cu VBA Excel
Putem efectua toate acțiunile pe care le facem în excel cu codificarea VBA. Putem copia, putem lipi, putem șterge și putem face multe alte lucruri prin limbajul VBA. „Inserarea rândului” este una dintre aceste metode pe care le facem deseori în Excel. În acest articol, vă vom arăta cum să efectuați metoda rândului de inserare în VBA.
Cum se introduce rând în Excel VBA?
Mai jos sunt diferitele metode de utilizare a VBA pentru a insera un rând în excel.
Metoda # 1 - Utilizarea metodei Insert
În VBA pentru a insera un rând, trebuie să folosim o tehnică similară pe care am folosit-o în foaia de lucru Excel. În VBA trebuie să folosim obiectul range pentru a insera rândul.
De exemplu, uitați-vă la codul de mai jos.
Cod:
Sub InsertRow_Example1 () Range ("A1"). Insert End Sub Acest cod se va deplasa în jos celula A1 la B1 și va introduce singura celulă.
Acest lucru va cauza atât de multe probleme în ceea ce privește manipularea datelor. Aceasta va muta celula menționată în jos și toate celelalte coloane asociate rămân aceleași.
Metoda # 2 - Utilizarea întregii proprietăți de rând
În rândul de inserare de sus putem folosi de fapt mai multe metode. Metoda de mai jos va insera întregul rând deasupra celulei selectate.
Pasul 1: menționați mai întâi adresa celulei .
Cod:
Sub InsertRow_Example2 () Range ("A1"). Sfârșitul Sub
Pasul 2: în loc să utilizați doar selectați proprietatea „ Întreg rând ”.
Cod:
Sub InsertRow_Example2 () Range ("A1"). Sfârșitul Sub
Pasul 3: După ce accesați întreaga proprietate de rând, utilizați metoda insert .
Cod:
Sub InsertRow_Example2 () Range ("A1"). EntireRow.Insert End Sub 
Aceasta va insera rândul deasupra celulei A1. Deoarece A1 este primul rând, se va deplasa în jos celula A1 la B1.
După cum puteți în imaginea de mai sus, trebuie să introducă întregul rând, nu singura celulă.
Metoda # 3 - Utilizarea numerelor de rând
În exemplul de mai sus, tocmai am folosit adresa cu o singură celulă și am inserat rândul. Cu toate acestea, le putem insera și folosind numere de rând.
Să presupunem că doriți să inserați un rând sub al 5-lea rând, mai întâi trebuie să menționăm numerele rândurilor folosind obiectul RANGE.
Cod:
Sub InsertRow_Example3 () Range („6: 6”). Sfârșitul Sub
Deoarece am menționat întregul rând ca 6: 6, trebuie să folosim proprietatea Rând întreg aici, putem folosi direct metoda „INSERT”.
Cod:
Sub InsertRow_Example3 () Range ("6: 6"). Insert End Sub Aceasta va insera, de asemenea, întregul rând, nu singura celulă.
Dacă doriți să inserați două rânduri sub al 5-lea rând, trebuie să selectăm mai întâi 2 rânduri și apoi să folosiți metoda INSERT.
Sub InsertRow_Example3 () Range ("6: 7"). Insert End Sub Aceasta va insera două rânduri sub al 5-lea rând.
Astfel, putem insera cât mai multe rânduri posibil în foaia de lucru.
Metoda # 4 - Utilizarea proprietății Active Cell
Putem folosi proprietatea Active Cell VBA pentru a insera rânduri. Celula activă nu este altceva decât o celulă selectată în prezent.
Să presupunem că vă aflați în celula B5 și doriți să inserați un rând de mai sus, puteți utiliza proprietatea de celulă activă.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Aceasta va insera rândul deasupra celulei active.
Metoda # 5 - Utilizarea proprietății celulei active cu funcția Offset
Să presupunem că doriți să inserați un rând după 2 rânduri ale celulei active, trebuie să folosim funcția Offset pentru a compensa numărul de rânduri.
Să presupunem că sunteți în celula B5.
Dacă doriți să inserați rândul după al doilea rând din celula activă, putem folosi codul de mai jos.
Cod:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntregRow.Insert End Sub
Aceasta va insera rândul după al șaselea rând.
Introduceți rânduri alternative
Inserarea rândurilor alternative este adesea întâlnit de multe ori. Pentru privire la imaginea de mai jos.
Acum trebuie să inserăm rânduri alternative. Trebuie să folosim bucle pentru a insera fiecare rând alternativ.
Cod:
Sub InsertRow_Example6 () Dim K As Integer Dim X As Integer X = 1 Pentru K = 1 la 4 celule (X, 1). EnterRow.Insert X = X + 2 Next K End Sub
Aceasta va insera rânduri ca aceasta.
Puteți descărca acest VBA Insert Row Excel aici. VBA Insert Row Excel Template