ВБА Избриши редове - Примери за брисање Екцел редова помоћу ВБА

Преглед садржаја

Екцел ВБА Избриши ред

Екцел ВБА Избриши ред

Обично у Екцеловом радном листу имамо две различите методе за брисање редова, један је пречица на тастатури, а други помоћу методе десним кликом и уметањем, али у ВБА морамо да користимо наредбу делете и наредбу радног листа за брисање свих редова заједно, трик ово је да ако треба да избришемо један ред дајемо референцу на један ред, али за више колона дајемо референце на више редова.

Коришћењем ВБА методе брисања редова можемо избрисати све празне редове и ред на основу вредности ћелије. Такође можемо избрисати читав ред ако је нека од ћелија празна.

У овом чланку ћемо размотрити методу „ВБА Делете Ред.“ Будите заокупљени наредних 15 до 20 минута да бисте научили о концепту.

Како избрисати ред?

Пример # 1

У ВБА морамо да поменемо ред који бришемо.

Шифра:

Суб ДелетеРов_Екампле1 () Ћелије (1, 1) Крај Суб

Ћелије (1, 1) означавају прву колону првог реда, тј. А1 ћелију. Тада користимо методу „избриши“.

Шифра:

Суб ДелетеРов_Екампле1 () Ћелије (1, 1) .Делете Енд Суб

Сада ће ово избрисати прву ћелију. Све вредности са десне стране помериће једну ћелију улево.

Пример # 2

Ако желите да избришете читав ред, треба да користимо својство „ЕнтиреРов“, онда треба да користимо методу „делете“ да избришемо цео ред ћелије коју смо изабрали.

Шифра:

Суб ДелетеРов_Екампле2 () Ћелије (1, 1) .ЕнтиреРов.Делете Енд Суб

На пример, унео сам неколико знакова у екцел лист на следећи начин.

Сада, ако покренем овај код, избрисаће цео ред, а не једну ћелију.

Пример # 3

Ред можемо избрисати на неколико начина. У горњем примеру, избрисали смо ред помоћу својства ЦЕЛЛС. Сада ћемо видети како се брише помоћу својства РОВС.

Сада морамо да поменемо који је то ред који треба да обришемо. Рецимо да морамо да избришемо ^5. ред.

Сада користите својство „ЕнтиреРов“ својство.

Након избора својства, шта треба да радимо, тј. Метода. Морамо да избришемо ред.

Шифра:

Суб ДелетеРов_Екампле3 () Ровс (5) .ЕнтиреРов.Делете Енд Суб

Дакле, овај код ће избрисати ^5. ред.

Пример # 4

Избришите више редова помоћу објекта домета

Како да избришемо више редова?

Објекат ВБА РАНГЕ можемо користити за брисање више од једног реда. Претпоставимо да имате неке вредности од ћелија од А1 до А6.

Сада желим да избришем првих 5 редова, тако да могу на њих да референцирам помоћу објекта Ранге као „Распон („ А1: А5 “)

Шифра:

Суб ДелетеРов_Екампле4 () Опсег ("А1: А5") Крај Суб

Сада желим да користим реч „ЕнтиреРов“ својство.

Шифра:

Суб ДелетеРов_Екампле4 () Распон ("А1: А5"). ЕнтиреРов Енд Суб

У целом овом реду морамо извршити методу брисања, па користите методу Делете.

Шифра:

Подразмак ДелетеРов_Екампле4 () Опсег ("А1: А5"). ЕнтиреРов.Делете Енд Суб

Сада ће ово избрисати изабране редове.

Пример # 5

Delete Rows Based On Cell Value

We can also use this “EntireRow.Delete” method to delete the row based on cell value in VBA. For example, I have Yes & No values from cell A1 to A10.

Now we need to delete the rows which have the value “No.” To perform this task, we need to use the function “IF” with loops to delete all the rows which have the value of “No.”

The below code will do the job for us.

Code:

Sub DeleteRow_Example5() Dim k As Integer For k = 10 To 1 Step -1 If Cells(k, 1).Value = "No" Then Cells(k, 1).EntireRow.Delete End If Next k End Sub

Example #6

Delete All the Blank Cells Rows

There are situations where we need to delete the entire row if any of the cells in the range are blank. For example, I have below set of data.

All the colored cells are blank, so I need to delete the entire row. We can perform this task with two sets of code. Below is the code.

Code:

Sub DeleteRow_Example6() Range("A1:F10").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub

This will identify the blank cells in the range A1 to F10.IF any blank cells are found, they will delete the entire row.

The problem with this code is it will only delete the blank cell’s row only in the range A1 to F10, but if any cells are blank in any other cells, it will not delete. So keeping this in mind, I have written one more code.

Code:

Под ДелетеРов_Екампле7 () Дим РангеТоДелете Ас Ранге Дим ДелетионРанге Ас Ранге Сет РангеТоДелете = Апплицатион.ИнпутБок ("Плеасе селецт тхе ранге", "Бланк Целлс Ровс Делетион", Типе: = 8) Сет ДелетионРанге = РангеТоДелете РангеТоДелете.СпециалЦеллЦеЛееЦеЛеЦеЛеЦеЛеЦеЛеЦеЛеЦеЛеНеЕнЦеллЦеЛеЕнЦеллЦеЛеЕнЦеЛеЕнЦелл. .Избриши крај под