Ищем в Лист1, в столбце A, самую нижнюю заполненную строку, из примера эта строка 12 Нужно в определённых листах стереть, например лист1 лист2 лист3 строку 12
Здравствуйте, подскажите пожалуйста код.
Ищем в Лист1, в столбце A, самую нижнюю заполненную строку, из примера эта строка 12 Нужно в определённых листах стереть, например лист1 лист2 лист3 строку 12stalber
With Sheets(1) 'вместо 1 номер листа или в кавычках имя листа iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row 'определяем номер последней заполненной строки в 1 столбце .Rows(iLastRow).Delete Shift:=xlUp 'удаляем найденную строчку End With
[/vba]
[vba]
Код
With Sheets(1) 'вместо 1 номер листа или в кавычках имя листа iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row 'определяем номер последней заполненной строки в 1 столбце .Rows(iLastRow).Delete Shift:=xlUp 'удаляем найденную строчку End With
With Sheets("jabloki") ' в кавычках указано название вашего листа
[/vba] Должно получаться так: [vba]
Код
With Sheets("jabloki") 'яблоки iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With With Sheets("apelsini") 'апельсины iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With
[/vba]
[vba]
Код
With Sheets("jabloki") ' в кавычках указано название вашего листа
[/vba] Должно получаться так: [vba]
Код
With Sheets("jabloki") 'яблоки iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With With Sheets("apelsini") 'апельсины iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With
Sub DelStr() With Sheets("jabloki") 'яблоки iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With With Sheets("apelsini") 'апельсины iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With End sub
[/vba] Макросу нужно было дать название.
[vba]
Код
Sub DelStr() With Sheets("jabloki") 'яблоки iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With With Sheets("apelsini") 'апельсины iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row .Rows(iLastRow).Delete Shift:=xlUp End With End sub