VBA Вмъкване на ред (пример, код) | Топ 5 Excel VBA метод за вмъкване на ред

Вмъкването на ред във VBA е малко по-различно от вмъкването на колона във VBA, в колони използвахме метода на цялата колона, но за вмъкване на редове използваме метод на работен лист с командата за вмъкване на ред, ние също предоставяме референция на ред, където искаме да вмъкнем друг ред, подобен на колоните.

Вмъкнете ред с VBA Excel

Ние можем да изпълняваме всички най-много всички действия, които правим в Excel с кодиране VBA. Можем да копираме, да поставяме, да изтриваме и да правим много повече неща чрез езика VBA. „Вмъкване на ред“ е един от тези методи, които често правим в Excel. В тази статия ще ви покажем как да изпълните метода за вмъкване на ред в VBA.

Как да вмъкнете ред в Excel VBA?

По-долу са посочени различните методи за използване на VBA за вмъкване на ред в Excel.

Метод # 1 - Използване на метода за вмъкване

Във VBA, за да вмъкнем ред, трябва да използваме подобна техника, която сме използвали в работния лист на Excel. Във VBA трябва да използваме обекта range, за да вмъкнем реда.

Например погледнете кода по-долу.

Код:

 Sub InsertRow_Example1 () Обхват ("A1"). Вмъкване Край Sub 

Този код ще се премести надолу по клетка A1 до B1 и ще вмъкне единствената клетка.

Това ще доведе до толкова много проблеми по отношение на обработката на данните. Това просто ще премести споменатата клетка надолу и всички останали свързани колони остават същите.

Метод # 2 - Използване на цялото свойство на реда

Най-горният ред за вмъкване всъщност можем да използваме няколко метода. Методът по-долу ще вмъкне целия ред над избраната клетка.

Стъпка 1: Споменете първо адреса на клетката .

Код:

Sub InsertRow_Example2 () Диапазон ("A1"). Крайна под

Стъпка 2: Вместо просто да използвате, изберете свойството „ Цял ред “.

Код:

Sub InsertRow_Example2 () Диапазон ("A1"). EntireRow. Крайна под

Стъпка 3: След достъп до цялото свойство на реда използвайте метода за вмъкване .

Код:

 Sub InsertRow_Example2 () Диапазон ("A1"). EntireRow.Insert End Sub 

Това ще вмъкне реда над клетката А1. Тъй като A1 е първият ред, той ще се премести надолу по клетката A1 до B1.

Както можете в горното изображение, той трябва да вмъкне целия ред, а не единичната клетка.

Метод # 3 - Използване на номера на редове

В горния пример току-що използвахме адреса на една клетка и вмъкнахме реда. Можем обаче да ги вмъкнем и с номера на редове.

Да предположим, че искате да вмъкнете ред под 5-ия ред, първо трябва да споменем номерата на редовете с помощта на обект RANGE.

Код:

Sub InsertRow_Example3 () Диапазон ("6: 6"). Крайна под

Тъй като споменахме целия ред като 6: 6, тук трябва да използваме свойството Entire Row, можем директно да използваме метода “INSERT”.

Код:

 Sub InsertRow_Example3 () Обхват ("6: 6"). Вмъкване Край Sub 

Това също ще вмъкне целия ред, а не единичната клетка.

В случай, че искате да вмъкнете два реда под 5-ия ред, първо трябва да изберете 2 реда и след това да използвате метода INSERT.

 Sub InsertRow_Example3 () Обхват ("6: 7"). Вмъкване Край Sub 

Това ще вмъкне два реда под 5-ия ред.

По този начин можем да вмъкнем възможно най-много редове в работния лист.

Метод # 4 - Използване на свойство Active Cell

Можем да използваме свойството Active Cell VBA за вмъкване на редове. Активната клетка не е нищо друго освен избрана в момента клетка.

Да предположим, че сте в клетката B5 и искате да вмъкнете ред по-горе, можете да използвате активно свойство на клетката.

 Sub InsertRow_Example4() ActiveCell.EntireRow.Insert End Sub 

This will insert the row above the active cell.

Method #5 – Using Active Cell Property with Offset Function

Assume you want to insert a row after 2 rows of the active cell, we need to use Offset function to offset the number of rows.

Assume you are in the B5 cell.

If you want to insert the row after the 2nd row from the active cell then we can use the below code.

Code:

 Sub InsertRow_Example5() ActiveCell.Offset(2, 0).EntireRow.Insert End Sub 

This will insert row after the 6th row.

Insert Alternative Rows

Inserting alternative rows is often I have come across many times. For the look at the below data image.

Now we need to insert alternative rows. We need to use loops to insert every alternate row.

Code:

 Sub InsertRow_Example6() Dim K As Integer Dim X As Integer X = 1 For K = 1 To 4 Cells(X, 1).EntireRow.Insert X = X + 2 Next K End Sub 

This will insert rows like this.

You can download this VBA Insert Row Excel here. VBA Insert Row Excel Template