Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA. Удаление ячеек по условию, Нужно удалить ячейки, а не строки
 
#1
14.08.2018 12:00:34
Добрый день!

Кто-нибудь сталкивался с макросами по удалению ячеек по условию. В гугле нахожу макросу по удалению строк по условиям.
 
 
 
#2
14.08.2018 12:05:56
Отдельно ячейку удалить невозможно; можно либо строку, либо столбец, либо просто очистить ячейку.
 
 
 
#3
14.08.2018 12:11:08
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = iLastRow To 2 Step -1
    If Cells(i, "A") = "яблоки" Or Cells(i, "A") = "груши" Then
      Cells(i, "A").Delete
    End If
  Next
End Sub
 
 
 
#4
14.08.2018 16:18:44
Kuzmich, спасибо!

Можно ли сделать так, чтобы макрос срабатывал когда находишься на другом листе одной и той же книги.
Сейчас ситуация следующая: макрос работает, если нахожусь на листе, где должны происходить изменения.И нет никаких изменений - если на другом листе?
 
 
 
#5
14.08.2018 16:46:49
Вам надо, чтобы макрос со всех листов убрал ячейки с яблоками и грушами в столбце А ?
Сделайте цикл по всем листам.
 
 
 
#6
14.08.2018 17:11:25
Цитата
Kuzmich написал:
Вам надо, чтобы макрос со всех листов убрал ячейки с яблоками и грушами в столбце А ?Сделайте цикл по всем листам.
Только с одного листа. Разобрался. Добавил "Sheets("Списки").Select"
Изменено: zelencov - 14.08.2018 17:16:57
 
 
 
#7
14.08.2018 17:17:36
Так макрос и убирает ячейки с яблоками и грушами в столбце А с одного листа
 
 
 
#8
14.08.2018 17:28:28
Как можно объединить 2 макроса в одном module:
Код
Sub Spiski_delete()
Sheets("Списки").Select
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 11).End(xlUp).Row
  For i = iLastRow To 5 Step -1
    If Cells(i, "K") = "{10} Материальные затраты" Or Cells(i, "K") = "{50} Прочие затраты" Then
      Cells(i, "K").Delete
    End If
  Next
End Sub

Sub УПР_расходы_delete()
Sheets("Управленческие расходы").Select
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = iLastRow To 16 Step -1
    If Cells(i, "A") = "{10} Материальные затраты" Or Cells(i, "A") = "{50} Прочие затраты" Then
      Cells(i, "A").ClearContents
    End If
  Next
End Sub
 
 
 
#9
14.08.2018 17:37:36
С какого листа вы запускаете макрос Sub Spiski_delete() ?
Есть ли у вас отдельная кнопка, по которой запускается макрос?
 
 
 
#10
14.08.2018 17:40:53
Кнопки отдельной не выводил. Запускаю через вкладку разработчик - макросы. Запуск произвожу на любом листе - заданные действия проходят там где и требуется.
 
 
 
#11
14.08.2018 17:45:08
Используйте конструкцию With......End With
В конец макроса Sub Spiski_delete() добавьте
Код
With Sheets("Управленческие расходы")
   iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
  For i = iLastRow To 16 Step -1
   If .Cells(i, "A") = "{10} Материальные затраты" Or .Cells(i, "A") = "{50} Прочие затраты" Then
     .Cells(i, "A").ClearContents
   End If
  Next
End With
 
 
 
#12
14.08.2018 21:21:57
Еще вариант по теме, без "Or":
 
 
 
#13
15.08.2018 12:12:21
Всем спасибо за помощь! Все получилось.
 
 
 
Страницы: 1
Наверх