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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление строк по значению - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по значению (Макросы/Sub)
Удаление строк по значению
VikVik Дата: Четверг, 28.02.2019, 10:51 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Мне нужно создать макрос на удаление определенных строк начинающихся с №п/п по сметная стоимость(в столбце С) они повторяются по смете ,как правильно записать макрос ?Или же оставить только позиции сметные 1,2,3 и т.д без расписания ресурсов
К сообщению приложен файл: k62430__.xls (79.5 Kb)

Хочу освоить exel

Сообщение отредактировал VikVik - Четверг, 28.02.2019, 10:58
 
Ответить
СообщениеМне нужно создать макрос на удаление определенных строк начинающихся с №п/п по сметная стоимость(в столбце С) они повторяются по смете ,как правильно записать макрос ?Или же оставить только позиции сметные 1,2,3 и т.д без расписания ресурсов
Автор - VikVik
Дата добавления - 28.02.2019 в 10:51
skais Дата: Четверг, 28.02.2019, 13:19 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 29 ±
Замечаний: 20% ±

Excel 2010
VikVik То есть Вы хотите оставить только строки несущую информацию по пунктам или подпунктам - а все остальное, шапки, итоги и прочее удалить?
А еще лучше покажите на соседнем листе как в итоге хотите видеть результат.


Сообщение отредактировал skais - Четверг, 28.02.2019, 13:20
 
Ответить
СообщениеVikVik То есть Вы хотите оставить только строки несущую информацию по пунктам или подпунктам - а все остальное, шапки, итоги и прочее удалить?
А еще лучше покажите на соседнем листе как в итоге хотите видеть результат.
Автор - skais
Дата добавления - 28.02.2019 в 13:19
VikVik Дата: Четверг, 28.02.2019, 18:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
skais, Да именно строки с пунктами нужно оставить,а все остальное подпункты итого и прочее удалить
К сообщению приложен файл: 8522952.xls (63.5 Kb)

Хочу освоить exel
 
Ответить
Сообщениеskais, Да именно строки с пунктами нужно оставить,а все остальное подпункты итого и прочее удалить
Автор - VikVik
Дата добавления - 28.02.2019 в 18:15
krosav4ig Дата: Четверг, 28.02.2019, 20:57 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub fffff()
    dim r as Range
    With ActiveSheet
        On Error Resume Next
        .Outline.ShowLevels 1
        Set r = .Columns(1).SpecialCells(2, 23).SpecialCells(12)
        Set r = Union(.Rows("1:25"), r, r.Offset(1))
        .Outline.ShowLevels 8: r.EntireRow.Hidden = True
        .UsedRange.SpecialCells(12).EntireRow.Delete: r.EntireRow.Hidden = 0
        Application.Goto .[A26], 1
    End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 28.02.2019, 20:58
 
Ответить
Сообщение[vba]
Код
Sub fffff()
    dim r as Range
    With ActiveSheet
        On Error Resume Next
        .Outline.ShowLevels 1
        Set r = .Columns(1).SpecialCells(2, 23).SpecialCells(12)
        Set r = Union(.Rows("1:25"), r, r.Offset(1))
        .Outline.ShowLevels 8: r.EntireRow.Hidden = True
        .UsedRange.SpecialCells(12).EntireRow.Delete: r.EntireRow.Hidden = 0
        Application.Goto .[A26], 1
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 28.02.2019 в 20:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по значению (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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