Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос удаления строк ранее сегодняшней даты
 
#1
25.03.2019 12:52:20
Подскажите, пожалуйста, макрос для кнопки Удалить, что по нажатию на эту кнопку он удалял строки со всеми датами, кроме сегодняшней (остальные данные склеивал, чтобы не было пустых строк) (отчет регулярно пополняется данными вниз). Заранее спасибо за Ваши ответы.
 
 
 
#2
25.03.2019 13:05:38
Про склейку не понятно, так что как сам додумал. Дублируется во 2-м и 3-м столбцах:
Код
Sub t()
x = ActiveSheet.UsedRange.Rows.Count
    For i = x To 1 Step -1
       Cells(i, 2) = Cells(i, 1) & Cells(i, 4)
       Cells(i, 3) = Cells(i, 1) & Cells(i, 4)
        If Cells(i, 4) < Date Then
        Rows(i).Delete
        End If
    Next
End Sub
 
 
 
#3
25.03.2019 13:19:20
Прошу прощения, не совсем понятно объяснил, под склейкой я имел ввиду просто удаление строк (не данных, чтобы были пустые ячейки, а именно строк), копировать данные в столбец 2 и 3 не требуется, в остальном то, что нужно, спасибо, можете подправить этот момент?
Изменено: Евгений И. - 25.03.2019 13:19:38
 
 
 
#4
25.03.2019 14:41:29
Тогда нужно только эти 2 строки удалить из кода:
Код
       Cells(i, 2) = Cells(i, 1) & Cells(i, 4)
       Cells(i, 3) = Cells(i, 1) & Cells(i, 4)
 
 
 
Страницы: 1
Наверх