Вмъкването на ред във 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
Това ще вмъкне реда над активната клетка.
Метод # 5 - Използване на свойство на активна клетка с функция за отместване
Да предположим, че искате да вмъкнете ред след 2 реда от активната клетка, трябва да използваме функцията Offset, за да компенсираме броя на редовете.
Да приемем, че сте в клетката B5.
Ако искате да вмъкнете реда след 2 -ри ред от активната клетка, а след това можем да използваме по-долу код.
Код:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Това ще вмъкне ред след 6 -ти ред.
Поставете алтернативни редове
Вмъкването на алтернативни редове често съм срещал много пъти. За поглед към изображението с данни по-долу.
Сега трябва да вмъкнем алтернативни редове. Трябва да използваме цикли, за да вмъкнем всеки алтернативен ред.
Код:
Sub InsertRow_Example6 () Dim K As Integer Dim Dim As In Integer X = 1 For K = 1 To 4 Cells (X, 1) .EntireRow.Insert X = X + 2 Next K End Sub
Това ще вмъкне редове като този.
Можете да изтеглите този VBA Insert Row Excel тук. VBA Вмъкване на ред Excel шаблон
