Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
удалить ненужные одинаковые строки
 
#1
31.01.2016 14:41:05
Детализация Мегафона разбита на множество таблиц с шапками и заголовками. Думаю, что это сделано для удобства печати на принтере. Но совершенно неудобно для анализа расходов... Подскажите, как можно удалить лишние заголовки и шапки одним или немногими действиями?
Спасибо.
 
 
 
#2
31.01.2016 14:55:09
Доп. столбец:
=ЕСЛИ(A12<>"";--(A12<>"Дата"))
Фильтр, копировать/вставить.
 
 
 
#3
31.01.2016 15:07:43
Цитата
ashpi написал: одним или немногими действиями
Одним нажатием на кнопку
З.Ы. Vikttur, там еще есть объединенные непустые строки
Изменено: Sanja - 31.01.2016 15:11:10
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
31.01.2016 21:42:08
Цитата
Sanja написал:
там еще есть объединенные непустые строки
здорово)
можете сказать, как это сделать?
 
 
 
#5
31.01.2016 21:54:31
Макросом.
Код
Sub Megafon()
Application.ScreenUpdating = False
With Worksheets("Page 1")
    lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    For I = lRow To 12 Step -1
        If .Range("A" & I).Value = "" Or .Range("A" & I).Value = "Дата" Or .Range("A" & I).Value Like "Детализация*" Then
            .Rows(I).Delete
        End If
    Next
End With
Application.ScreenUpdating = True
End Sub

ПКМ по ярлыку листа - Исходный текст - Modules - Module 1
Изменено: Sanja - 31.01.2016 22:02:52
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх