Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макросом удалить строки с двух листов
 
#1
11.06.2025 11:17:01
Здравствуйте подскажите пожалуйста. Мне нужно удалить 4 строки на листе "Яблоко" и "Груша" (должен быть скрыт). То есть если я встаю на лист "Яблоко" на ячейку "A15", жму на макрос и он должен удалить строки с "15:18", одновременно должны удалиться те же строки и на листе "Груша".
Код
Sub Удалить_Строки()
    Sheets(Array("Яблоко", "Груша")).Select
    ActiveCell.Rows("1:4").EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Select
    Sheets("Яблоко").Select
End Sub
Этот макрос выдает ошибку только, когда лист "Груша" скрыт
 
 
 
#2
11.06.2025 11:54:33
Код
Sub Удалить_Строки()
Dim iSh As Worksheet
Application.ScreenUpdating = False
For Each iSh In ThisWorkbook.Worksheets
  With iSh
  If .Name = "Яблоко" Or .Name = "Груша" Then
    .Rows("1:4").Delete Shift:=xlUp
  End If
  End With
Next
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
11.06.2025 12:41:24
Sanja, здравствуйте спасибо что откликнулись, забыл пометить что ссылки относительные. Вашем случае он удаляет с "1:4" строку. А нужно чтобы удалял, если встаю на 15 строку то с "15:18", если с 23 строки, то "23:26". Моя ошибка, извините могли бы поправить макрос?
 
 
 
#4
11.06.2025 14:25:15
Код
Sub Удалить_Строки()
Dim iSh As Worksheet
Application.ScreenUpdating = False
For Each iSh In ThisWorkbook.Worksheets
  With iSh
  If .Name = "Яблоко" Or .Name = "Груша" Then
    .Rows(ActiveCell.Row).Rows("1:4").Delete Shift:=xlUp
  End If
  End With
Next
Application.ScreenUpdating = True
End Sub
 
 
 
#5
11.06.2025 17:05:52
Еще вариант
Код
.Rows(ActiveCell.Row).Resize(4).Delete Shift:=xlUp
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
12.06.2025 15:37:45
МатросНаЗебре, Sanja, спасибо Вам за помощь, очень благодарен Вам. Подскажите, а если нужно будит не удалить, а наоборот добавить строки?
 
 
 
#7
12.06.2025 15:39:48
Запишите макросом нужные действия и попробуйте сами проанализировать получившийся код
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
12.06.2025 16:02:40
Спасибо, получилось!
Код
Sub Добавить_Строки()
Dim iSh As Worksheet
Application.ScreenUpdating = False
For Each iSh In ThisWorkbook.Worksheets
  With iSh
  If .Name = "Яблоко" Or .Name = "Груша" Then
    .Rows(ActiveCell.Row).Rows("1:4").Insert Shift:=xlDown 'Вариант №1
    '.Rows(ActiveCell.Row).Resize(4).Insert Shift:=xlDown 'Вариант №2
  End If
  End With
Next
Application.ScreenUpdating = True
End Sub
 
 
 
#9
12.06.2025 17:54:45
Извините не подскажите, а как быть если надо также скопировать строки,  потом вставить их с нужной мне строки. Мне создать новую тему, или в этой может быть подсказка?
 
 
 
#10
12.06.2025 19:09:49
Копирование, впрочем как и вставка строк, ну никак не подходят под тему про их удаление)
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Читают тему
Наверх