Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Нужен макрос для удаления ячейки со значением и ниже - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужен макрос для удаления ячейки со значением и ниже (Формулы/Formulas)
Нужен макрос для удаления ячейки со значением и ниже
ikromovone Дата: Вторник, 26.07.2022, 13:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте! у меня есть формула для макроса

[vba]
Код
Sub DeleteCells()

'Loop through cells B1:B10000 and delete cells that contain an "факсы."
For Each c In Range("B1:B10000")
If c = "факсы" Then c.EntireRow.Delete
Next

End Sub
[/vba]

Он удаляет ячейку со значением но еще нужно чтобы удалял одну ячейку которая находится снизу! помогите ПЛИЗ!!


Сообщение отредактировал Serge_007 - Вторник, 26.07.2022, 14:22
 
Ответить
СообщениеЗдравствуйте! у меня есть формула для макроса

[vba]
Код
Sub DeleteCells()

'Loop through cells B1:B10000 and delete cells that contain an "факсы."
For Each c In Range("B1:B10000")
If c = "факсы" Then c.EntireRow.Delete
Next

End Sub
[/vba]

Он удаляет ячейку со значением но еще нужно чтобы удалял одну ячейку которая находится снизу! помогите ПЛИЗ!!

Автор - ikromovone
Дата добавления - 26.07.2022 в 13:57
Serge_007 Дата: Вторник, 26.07.2022, 14:30 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Здравствуйте

Например так можно:[vba]
Код
Sub DeleteCells()
    For Each c In Range("B1:B10000")
        If c = "факсы" Then c = _
        c.Offset(1, 0).EntireRow.Delete And c.EntireRow.Delete
    Next c
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

Например так можно:[vba]
Код
Sub DeleteCells()
    For Each c In Range("B1:B10000")
        If c = "факсы" Then c = _
        c.Offset(1, 0).EntireRow.Delete And c.EntireRow.Delete
    Next c
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 26.07.2022 в 14:30
_Boroda_ Дата: Среда, 27.07.2022, 11:11 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
c.Resize(2).EntireRow.Delete
[/vba]
Но учтите такой момент - когда Вы удаляете строки, гораздо лучше идти снизу вверх
Вот так примерно

[vba]
Код
Sub DeleteCells()
    For i = 20 To 1 Step -1
        If Cells(i, 2) = "факсы" Then Cells(i, 2).Resize(2).EntireRow.Delete
    Next i
End Sub
[/vba]
Про остальное, типа засовывания данных в массив, фильтрации и т.п. не говорим пока


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
c.Resize(2).EntireRow.Delete
[/vba]
Но учтите такой момент - когда Вы удаляете строки, гораздо лучше идти снизу вверх
Вот так примерно

[vba]
Код
Sub DeleteCells()
    For i = 20 To 1 Step -1
        If Cells(i, 2) = "факсы" Then Cells(i, 2).Resize(2).EntireRow.Delete
    Next i
End Sub
[/vba]
Про остальное, типа засовывания данных в массив, фильтрации и т.п. не говорим пока

Автор - _Boroda_
Дата добавления - 27.07.2022 в 11:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужен макрос для удаления ячейки со значением и ниже (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!